Auf Button-Click warten

[svern]

Hey,

irgendwie klappt das nicht.

Hab das jetzt so in der einen Prozedur:

Delphi-Quellcode:

 
     while (B2 = False ) do
      begin
        //sleep(50);
        label6.caption:='klappt';
        Application.ProcessMessages;
      end;
      label7.caption:='jojooo';
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
     B2:=true;
     //Netzplan();
end;

Aber er macht das nicht!!! Verdammte Axt, ich check das nicht. Die Prozedur Button2Click wird nicht angewählt, wenn ich die Schleife am Laufen hab... warum nicht? Wie umgeh ich das?