Eine lösung womit der Problemsteller eher nicht rechnet, ein bisschen aufwendiger is, aber auch schön is (meiner meinung nach)
Delphi-Quellcode:
procedure DoNothing(Sender: TForm1);
begin
end;
procedure DoSomething(Sender: TForm1);
begin
Sender.ErstelleNeuesForm;
end;
procedure Form1.FormOnKeyUp(Sender: TObject, ...)
type
TMyProcedure = procedure(Sender: TForm1);
var
h: array[boolean] of TMyProcedure;
begin
h[false] := DoNothing;
h[true] := DoSomething;
repeat
until true; //Verwendung von repeat-until
h[Edit1.Text = 'Passwort'](self);
end;