2 Schleifen mit app.processmessages laufen nicht parallel ??

[stoxx]

Ich hab ein Problem und weiß nicht, wie ich das lösen soll.
2 Schleifen, in denen application.processmessages verwendet wird, laufen nicht parallel ab, falls die Laufzeiten sich überschneiden.
Das hat den Effekt, dass das Programm an dieser Stelle steht und in der repeat Schleife hängen bleibt, die andere Schleife aber nicht fertig ausgeführt wird, was eigentlich nicht sein soll.
Gibt es eine Lösung dafür ?


hier zum probieren den Code. Man braucht eigentlich nur ein Form und ein Button.
besten Dank !

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  wait : boolean = false;

implementation

{$R *.dfm}

procedure SleepX(SleepTicks: DWORD);
var
  TC: DWORD;
begin
  TC := GetTickCount;
  repeat
    Application.processmessages;
    sleep(1);
  until ((GetTickCount-TC) > SleepTicks);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
if wait then
repeat
    application.ProcessMessages;
    sleep(1);
until not wait;


wait := true;
sleepx(2000);
wait := false;

showmessage( 'Hier komme ich nie an, wenn man zweimal schnell hintereinander auf Button1 drückt');

end;


end.