PostMessage Problem

[STaRDoGGCHaMP]

Hallo,
Ich habe ein kleines Problem, wenn ich mit Hilfe von PostMessage Einen simplen Klick "senden" möchte. Hier mal vereinfacht dargestellt, Mein Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := TRUE;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    PostMessage(Form1.Handle, WM_LBUTTONDOWN, MK_LBUTTON, MAKELPARAM(10, 10));
    PostMessage(Form1.Handle, WM_LBUTTONUP, 0, MAKELPARAM(10, 10));
end;

Das ganze geschieht in einem 2-Sekunden Intervall. Die Klicks werden auch "gesendet". Wenn ich jetzt allerdings während die Klicks gesendet sind beispielsweise das Fenster bewege "crasht" das ganze ein wenig (das Fenster springt zu einer ganz anderen Position). Das ist natürlich nicht optimal und ich würde gerne wissen, wie ich diesem Verhalten vorbeugen kann. Ich denke mal ich müsste irgendwie überprüfen, ob die Nachrichten-Warteschlange von der Fensterprozedur leer ist, bzw. keine anderen Nachrichten beinhaltet, welche obiges Verhalten verursachen. Irgendwelche Ideen?

MfG,
STaRDoGGCHaMP