Hallo.
Auszug aus Delphi-Hilfe:
Delphi-Quellcode:
Die Methode Click simuliert einen Mausklick durch den Benutzer auf eine Schaltfläche.
procedure Click; override;
Beschreibung
Ein Aufruf von Click weist dem übergeordneten Formular den Wert der Eigenschaft ModalResult der Schaltfläche zu und erzeugt dann das Ereignis OnClick.
Ich weiss nicht wie du Dein Kontrukt programmiert hast, aber kann nach der Hilfe nicht so funktionieren, so wie ich das Verstanden habe.
Weise Deinem Button mal die Eigenschaft: ModalResult := mrOK zu.
Deine Schleife änderst Du folgendermassen:
Delphi-Quellcode:
while self.modalResult<>mrOK do
begin
Edit1.Enabled:=true;
Bwert.Enabled:=true;
Application.ProcessManages;
end;