Also wenn dir eine ganz simple Passwort abfrage reicht, dann mach das so:
Delphi-Quellcode:
with Tform1.create(Sender: TObject);
var
passwort:string;
begin
passwort := InputBox('Test program', 'Please type your key', 'nichts-eingegeben');
if passwort <> 'Dein-Passwort' then begin
showmessage('Falsches Passwort');
Close;
end;
if passwort := 'nichts-eingegeben' then begin
showmessage('Bitte gib ein Passwort ein!');
close;
end;
end;
grüsse