Ist while in verbindung mit einem Button nicht möglich?

[Zyro]

ich habe einen Button, der heisst Bwert. Dann habe ich eine Prozedur, die ein paar Sachen durchläuft. jetzt will ich, aber die Prozedur an einer STelle anhalten, um einen Parameter einzugeben. Aber irgendwie will er das nicht akzeptieren. Hier der Quellcode:

Delphi-Quellcode:

 if(t=2)AND(Feld[t]<>'NULL')THEN begin
          while not BWert.Click do begin
          Edit1.Enabled:=true;
          Bwert.Enabled:=true;
          end;
          end;