VCL Delphi

Title: copy the current line of a Stringgrid into a TEdit?
procedure TForm1.StringGrid1Click(Sender: TObject);
var
s: string;
begin
// Text der Zelle holen
s := StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row];
if Length(s) 1 then //L nge des Text bepr fen
begin
Edit2.Text := s; // Text ausgeben
end;
end;