Im Stringgrid oben eine neue Zeile einfügen

[Hallo_Thomas]

@marabu sieht das nicht schon besser aus, für meine Minimalanforderung:


Ich hab jetzt mal versucht die Hinweise umzusetzen, sieht doch besser aus!!

Delphi-Quellcode:

procedure TForm1.insertGridLine(Grid :TStringGrid; index: integer);
var i:integer;
begin
  Grid.RowCount :=Grid.RowCount +1;
  for i :=Grid.RowCount -1 downto index do
  begin
    Grid.Rows[i].Assign(Grid.Rows[i-1]);
    Grid.Rows[i-1].clear;
  end;
end;