procedure TForm12.BitBtn1Click(Sender: TObject);
begin
case form12.ComboBox1.ItemIndex of
0: begin if ((form12.Edit1.Text)='')
then
begin
form1.Tag:=0;
form1.user.Caption:=inttostr(form1.Tag);
form1.ShowModal;
form12.Hide;
end
else begin
form12.Label3.Visible:=True;
form12.Edit1.Clear;
end;

end;
1: begin
form1.Tag:=1;
form1.user.Caption:=inttostr(form1.Tag);
form1.ShowModal;
form12.Hide;
end;
end;
end;

procedure TForm1.N15Click(Sender: TObject);
begin
datamodule2.dbsalut.Connected:=True;
datamodule2.zaezd.Active:=True;
datamodule2.pacient.Active:=True;
datamodule2.TownTable.Active:=True;
datamodule2.OpozdanieMoney.Active:=True;
datamodule2.OpozdanieDay.Active:=True;
datamodule2.Dosro4noDay.Active:=True;
datamodule2.Dosro4noMoney.Active:=True;
case form1.Tag of
0: begin
form1.add.Enabled:=True;
form1.edit.Enabled:=True;
form1.delete.Enabled:=True;
form1.Button2.Enabled:=True;
form1.Button4.Enabled:=True;
form1.Button5.Enabled:=True;
form1.Button6.Enabled:=True;
form1.Button7.Enabled:=True;
form1.N2.Visible:=True;
form1.N3.Visible:=True;
form1.N4.Visible:=True;
form1.Panel1.Visible:=True;
end;
1: begin
form1.add.Enabled:=False;
form1.edit.Enabled:=False;
form1.delete.Enabled:=False;
form1.Button2.Enabled:=False;
form1.Button4.Enabled:=False;
form1.Button5.Enabled:=False;
form1.Button6.Enabled:=False;
form1.Button7.Enabled:=False;
form1.N2.Visible:=True;
form1.N3.Enabled:=False;
form1.N4.Enabled:=False;
form1.Panel1.Visible:=False;

end;
end;
end;

If CurrentUser = "Администратор" Then
  FormAdministrator.ShowModal
Else
  MessageBox(0, 'Вы не можете проводить административные действия. Свяжитесь с Вашим Администратором.', 'Руки прочь от Гондураса!', MB_OK+MB_ICONSTOP+MB_APPLMODAL)

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.