Лабораторная работа: Создание программы авторизации пользователя с помощью пароля

DBEdit2: TDBEdit;

StaticText1: TStaticText;

StaticText2: TStaticText;

DBEdit3: TDBEdit;

StaticText3: TStaticText;

StaticText4: TStaticText;

Edit1: TEdit;

Button1: TButton;

DBEdit4: TDBEdit;

StaticText5: TStaticText;

Button2: TButton;

Image1: TImage;

Button3: TButton;

Label1: TLabel;

Button4: TButton;

procedure Button1Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1, Unit3, Unit4;