Passwortüberprüfung mit repeat / until?!

[Neutral General]

richtig : Boolean;

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
begin
repeat
  richtig := false;
  Application.ProcessMessages;
until Edit1.Text = 'Hallo';
richtig := true;
end;

Delphi-Quellcode:

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Richtig = true then
  Form2.Show;
end;

So gehts. Sry das ich jetzt alles gepostet hab...