if InputBox('Titel', 'Skriv adgangskoden for at lukke dette program', '') = '1234' then CanClose := True else begin CanClose := False; ShowMessage('Forkert adgangskode. Prøv igen!'); end;