Passwortüberprüfung mit repeat / until?!

[JasonDX]

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;