Formulário com senha de acesso
Veja nesta dica como impor uma senha antes de entrar no formulário principal. O procedimento fica assim:
procedure TForm1.FormCreate(Sender: TObject);
var
senha: string[6];
begin
senha := inputbox('Código','Digite a Senha de Acesso','');
if (senha<>'MASTER')and(senha<>'master') then
begin {no lugar de Master digite sua senha}
SHOWMESSAGE('SENHA INCORRETA');
halt;
end;
end;