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;