1:
2:
3:
4:
5:
6:
7:

var par,chi:thandle;
begin
clipboard.AsText:='Hallo'; // Zwischenablage=Hallo, später Memo1.Text
par:=FindWindow(nil,'Unit1.pas'); //Ich finde das Fenster
chi := FindWindowEx(chi, 0, 'TEditControl', nil); // Suche TEditControl (ich hab mit einem Programm nachgeguckt,
                                                  // welche Klasse dieses Memo-Feld hat, und es ist eben TEditControl)
SendMessage(chi, WM_PASTE, 0, 0); // Text einfügen