APPLICATION WITH PASSWORD

unit Unit1;

interface

uses
  unit2,Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, EnhEdit, StdCtrls, SRGrad, Mask, DBCtrls, Grids, DBGrids,
  ExtCtrls;

type
  Tform1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Button2: TButton;
    DBEdit1: TDBEdit;
    DBGrid1: TDBGrid;
    Label2: TLabel;
    Image1: TImage;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);

 private
    { Déclarations privées }


     public
    { Déclarations publiques }

  end;



var
  form1: Tform1;
   bol:boolean;
implementation

uses Unit3;



 function ChangeResolution(Width, Height: integer): Longint;
    var
    Affich: TDeviceMode;
    begin
        Affich.dmSize := SizeOf(TDeviceMode);//Paramètres
        Affich.dmPelsWidth := Width;
        Affich.dmPelsHeight := Height;
        Affich.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
    Result := ChangeDisplaySettings(Affich, CDS_UPDATEREGISTRY);//Applique avec l'Api windows
end;

{$R *.dfm}

procedure Tform1.Button2Click(Sender: TObject);
begin
application.Terminate;
end;

procedure Tform1.Button1Click(Sender: TObject);
begin

if (edit1.Text =  dbedit1.Text)   then
  begin
  bol:=true;
  close;
  form2.SetFocus;
  end;

if (edit1.Text <> dbedit1.Text)   then
   begin
   bol:=false;
   edit1.Text:='';
   messagedlg( 'ÊÃßÜÜÏ ãä ßáãÉ ÇáÓÜÜÑ   reintroduiser' ,mtwarning,[mbok],0);
   edit1.SetFocus;
   end;
end;

procedure Tform1.FormCreate(Sender: TObject);


begin



ChangeResolution(1280,1024);

end;

procedure Tform1.FormActivate(Sender: TObject);
begin
bdds.mot.Open;
edit1.SetFocus;
edit1.Text:='';
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: boolean);
begin
  if  (edit1.Text=dbedit1.Text)  and (bol = true)   then

       begin
       CanClose := true;
       close;
       bdds.mot.close;
       end;

  if  (edit1.Text<>dbedit1.Text) and (bol = false)  then

       begin
       CanClose := false;

       end;
end;

procedure Tform1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key =#13 then
button1.OnClick(nil);
end;
end.

Link to download the project complete :http://fit.sh/gCe
Note: Skip the annonce To be able to download