Vielen Dank Jungs hat suuuuper geklappt.
Könnte Ihr mir auch noch sagen, warum ich zwar einzelne Zeichen aber nciht ein ganzes Wort aus einem Stringgrid über ein Richedit-Feld mit der folgenen zeile aus dem Zwischenspeicher senden kann:
h := GetFocusedControl;
SeekRecord(stringgrid1,[1],[edit1.text]);
richedit1.Text:= stringgrid1.Cells[0,stringgrid1.row];
K:=length(richedit1.text);
richedit1.SelectAll;
richedit1.CopyToClipboard;
PostMessage(hwnd,wm_paste,length(richedit1.text),0 );
