Lass dir mal den Text anzeigen, ob überhaubt etwas enthalten ist...
Delphi-Quellcode:
begin
//..
h := GetFocusedControl;
SeekRecord(stringgrid1,[1],[edit1.text]);
richedit1.Text:= stringgrid1.Cells[0,stringgrid1.row];
K:=length(richedit1.text);
ShowMessage(richedit1.Text); // <----<<<
richedit1.SelectAll;
richedit1.CopyToClipboard;
PostMessage(hwnd,wm_paste,0,0); // <---<<<
//..
Neue Frage -> neuer Thread. Und verwende bitte Tag's (Tastenkombi für delphicode [ALT+ d])