StringGrid Zeilen löschen

[lucy]

Hallo,

möchte gerne einzelne Zeilen löschen.

Wobei die oberste Zeile (Überschrift) nicht markiert werden soll, wenn das Grid leer ist.
Ist das möglich?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
 var
  i: integer;
begin
 for i :=StringGrid1.Row to StringGrid1.RowCount-2 do  StringGrid1.Rows[i].Assign(StringGrid1.Rows[i+1]);
  StringGrid1.RowCount := StringGrid1.RowCount - 1
end;