Interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, Mask;

type

TForm4 = class(TForm)

Label1: TLabel;

BitBtn1: TBitBtn;

MaskEdit2: TMaskEdit;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

with Form1 do

if MaskEdit2.Text='0000' then begin

Button3.Enabled:=true;

bitbtn1.Enabled:=true;

button1.Enabled:=true;

button2.Enabled:=true;

bitbtn2.Enabled:=true;

bitbtn3.Enabled:=true;

DBEdit1.Enabled:=true;

DBEdit2.Enabled:=true;

DBEdit3.Enabled:=true;

DBEdit4.Enabled:=true;

Button4.Enabled:=true;

m1.Checked:=true;

Form4.Close;

end

else

MessageDlg('Пароль неверен!', mtError,[mbOK],0);

end;

end.