Du kannst auch in der form1.create das machen (form2 ist das Passwortfenster. Das erstellst du unter Datei -> Neu -> Formular):
Delphi-Quellcode:
procedure tform1.form1create(sender:tobject);
begin
form2:=tform2.create(self);
form2.showmodal;
end;
in die Form2 tust du dann einen Edit rein, der hat die Eigenschaft PASSWORDCHAR, wenn du da ein Zeichen reintust, wird der Edit.Text nur noch in Sternen angezeigt oder was auch immer.
Falls dann 3 mal das falsche Passwort eingegeben wurde, rufst du
application.terminate //Anwendung beenden
auf. Das Passwort schreibst du dann in eine Konstante oder so.
Dann brauchst du noch das:
Delphi-Quellcode:
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if edit1.text<>passwort then action:=canone;
end;
Im Anhang ein D7-Beispiel
//edit: Ich sollte vielleicht noch sagen, das das Kennwort in meinem Bsp 'passwort' lautet.