[lmikle]

Ну так либо просто добавляй в конец строку, либо просто не удаляй, а переноси данные "вверх", что-то типа:

Код:

procedure PseudoDeleteRow(AGrid : TStringGrid; ARow : Integer);
var
  I, J : Integer;
begin
  For I := ARow To AGrid.Rows-2 Do
    For J := 0 To AGrid.Cols-1 Do
      Begin
         AGrid.Cells[J,I] := AGrid.Cells[J,I+1];
         AGrid.Cells[J,I+1] := '';
      End;
end;