Password

form create/form create >msgbox.
-> og så sammenlign den med en variabel i programmet.

-dog er den ikke enormt snedig. men hvis der skal laves kryptering, burde du læse noget om det (det er ikke så tørt som man tror)

prøv noget alla der her :

function ValidatePassword(const s : String) : boolean;
begin
  result := true;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  InputString: string;
begin
  InputString:= InputBox(\'Input Box\', \'Prompt\', \'Default string\');
  if not ValidatePassword(InputString) then
    Application.Terminate;
end;


Jens B