StringGrid Zeile Kopieren

[SaFu]

Hi

Ich versuche gerade den Inhalt einer Zeile vom StringGrid Zu Kopieren, dazu wollte ich sie erstmal makieren, was mir bis jetzt nur so halb gelungen ist.

Jetzt frage ich mich wie mach ich das am besten, die ausgewählte Zeile zu makieren und den Inhalt der Zeile in eine andere ausgwählte Zeil zu kopieren.???

Das ist mein jetziger Lösungsansatz

Delphi-Quellcode:

procedure TForm7.ZeileMakieren1Click(Sender: TObject);
Var i : integer;
begin
for I := 0 to StringGrid1.RowCount -1 do
 begin
  StringGrid1.Selection := TGridRect(Rect(StringGrid1.FixedCols + 2, StringGrid1.RowCount + i , StringGrid1.ColCount -3, StringGrid1.RowCount + i));
 end;
end;