Программа с простым паролем на входе...

procedure TPasswordDlg.OKBtnClick(Sender: TObject);
Const pass='qwerty';
begin
 If Password.Text<>Pass then
 begin
  Password.Text:='';
  MessageDlg('Error',mtError, [mbOK], 0);
 end;
 end;
end.

procedure TPasswordDlg.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
var buttonSelected : Integer;
Const pass='qwerty';
begin
 If Password.Text<>Pass then
 begin
  Password.Text:='';
  buttonSelected := MessageDlg('Неверный пароль попробуйте еще раз',
                               mtError, [mbOK], 1);
  if buttonSelected = mrOK  then CanClose:=False;
 end else MessageDlg('Авторизация успешно пройдена.',mtInformation,
                     [mbOK], 1);
end;

procedure TPasswordDlg.OKBtnClick(Sender: TObject);
Const pass='qwerty';
begin
 If Password.Text<>Pass then
 begin
  Password.Text:='';
  MessageDlg('Error',mtError, [mbOK], 0);
  close;
 end;
end;
end.

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm2 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
  k:integer;
implementation
 
uses Unit1;
 
{$R *.dfm}
 
procedure TForm2.Button1Click(Sender: TObject);
 
 
 
 
  begin
 
   if edit1.Text='qwerty' then
     begin
       form1.Show;
       form2.Hide;
     end
    else
     ShowMessage('Пароль не верный!!!');
     k:=k+1;
     edit1.Text:='';
    if k=5 then begin
    ShowMessage('Вы исчерпали все свои попытки!!');
    close;
    form2.Close;
    form1.Close;
 
    end;
 
  end;
 
 
 
procedure TForm2.FormCreate(Sender: TObject);
begin
k:=1;
end;
 
end.

procedure TForm2.Button1Click(Sender: TObject);
const pass='qwerty';
begin
If Edit1.Text=pass then
 begin
 MessageDlg('Àâòîðèçàöèÿ óñïåøíî ïðîéäåíà.', mtInformation,[mbOK],2);
 Form2.Visible:=False;
 Form1.Visible:=true;
 end
else Begin
  MessageDlg('Íåâåðíûé ïàðîëü, ïîïðîáóéòå åùå ðàç.',mtError,[mbOK],2);
  Edit1.Text:='';
  Edit1.SetFocus;
  end;
end;

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
   i:integer;
implementation
 uses Unit1;
{$R *.dfm}
 
procedure TForm2.Button1Click(Sender: TObject);
 
const pass='qwerty';
 
var MOK: Integer;
 
begin
 
If Edit1.Text=pass then
 begin
 Form2.Button1.ModalResult:=mrOk;
 MOK:= MessageDlg('Àâòîðèçàöèÿ óñïåøíî ïðîéäåíà.', mtInformation,[mbOK],2);
 If MOK=mrOk then
   begin
    Form2.Visible:=False;
    Form1.Visible:=true;
   end
 end
else Begin
  i:=i+1;
  MessageDlg('Íåâåðíûé ïàðîëü, ïîïðîáóéòå åùå ðàç.',mtError,[mbOK],2);
   Edit1.Text:='';
   If i=2 then
   begin
    ShowMessage('Îøèáêà. Ïðèëîæåíèå áóäåò çàêðûòî.');
    Application.Terminate;
   end else
    Edit1.SetFocus;
end;
 
end;
 
procedure TForm2.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;
 
procedure TForm2.FormCreate(Sender: TObject);
begin
i:=0;
end;
 
end.