Ein paar Änderungen könnten vielleicht helfen:
Delphi-Quellcode:
begin
h := GetFocusedControl;
SeekRecord(StringGrid1, [1], [Edit1.Text]);
ClipBoard.AsText := StringGrid1.Cells[0, StringGrid1.Row];
PostMessage(h, WM_PASTE, 0, 0);
end;
Grüße vom marabu