Sendmessage und Zwischenablage Problem

[Biohazard]

Innerhalb meines Progs geht es. will ich aber von einem anderen Prog den Text eines Feldes geht es nicht.

Kann das evtl hiran liegen:

Code:

procedure TForm1.FormCreate(Sender: TObject);
var ok: longbool;

begin
  i:=0;
  ok:=RegisterHotKey(Form1.Handle, ID, MOD_Alt, Ord('Q'));
  if not ok then showmessage('Fehler');
  ok:=RegisterHotKey(Form1.Handle, ID+1, MOD_control, vk_f1);
end;

Irgendwie stört das form1. Aber ich weiß nicht wie das sonst funzen soll.