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

[scp]

Delphi-Quellcode:

var
  BWertClicked : boolean;

// ...

procedure TForm1.BWertClick(Sender: TObject);
begin
  BWertClicked := true;
end;

// ...
begin
  BWertClicked := false;
if(t=2)AND(Feld[t]<>'NULL')THEN begin
          while not BWertClicked do begin
          Edit1.Enabled:=true;
          Bwert.Enabled:=true;
          Application.ProcessMessages;
          end;
          end;
  BWertClicked := false;
end;