1 var
 2   i:Integer;
 3 begin
 4   if StringGrid1.RowCount<2 then
 5   begin
 6     Exit;
 7   end;
 8   StringGrid1.Rows[StringGrid1.Row].Clear;
 9   if StringGrid1.Row=StringGrid1.RowCount-1 then
10     Exit;
11   for i:=StringGrid1.Row to StringGrid1.RowCount-2 do
12   begin
13     StringGrid1.Rows[i]:=StringGrid1.Rows[i+1];
14     StringGrid1.Rows[i+1].clear;
15   end;
16 
17 end;

1 procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
2   X, Y: Integer);
3 begin
4   if (StringGrid1.MouseCoord(x,y).X>StringGrid1.ColCount-1) or (StringGrid1.MouseCoord(x,y).X<0) then
5     Exit;
6   if (StringGrid1.MouseCoord(x,y).Y>StringGrid1.RowCount-1) or (StringGrid1.MouseCoord(x,y).Y<0) then
7     Exit;
8   StringGrid1.Hint:=StringGrid1.Cells[StringGrid1.MouseCoord(x,y).X,StringGrid1.MouseCoord(x,y).Y];
9 end;

 1 var
 2   i,j:Integer;
 3 begin
 4    for i:=0 to StringGrid1.ColCount-1 do
 5    begin
 6      for j:=0 to StringGrid1.RowCount-1 do
 7      begin
 8        if j=0 then
 9        begin
10          Continue;
11        end;
12        StringGrid1.Cells[i,j]:=Format('i:=%d ;j:=%d',[i,j]);
13      end;
14    end;
15 end;

1 var
2   i:Integer;
3 begin
4    for i:=1 to StringGrid1.RowCount-1 do
5       StringGrid1.Rows[i].Clear;
6 end;