Fenster, welches man nur durch eine Sache schließen kann

[Sir Rufo]

Nur mal so auf die Schnelle:

Delphi-Quellcode:

procedure PasswordForm( const UnlockPassword : string );
var
  LForm : TPasswordForm;
begin
  LForm := TPasswordForm.Create( nil );
  try
    repeat
      LForm.ShowModal;
    until LForm.Password = UnlockPassword;
  finally
    LForm.Free;
  end;
end;