Im Stringgrid oben eine neue Zeile einfügen

[Hallo_Thomas]

Fast perfekt, Danke, hat echt weiter geholfen!

getestet

Delphi-Quellcode:

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