submenu mit passwort schützen

[freak4fun]

Code in Form1:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if InputBox('Caption', 'Password?', '') = 'test' then
    Form2.ShowModal
  else
    ShowMessage('Das eingegebene Passwort ist falsch!');
end;

Wenn ich das Passwort richtig angebe, wird Form 2 geöffnet, ansonsten kommt die Meldung, dass das Passwort falsch ist.

MfG
freak