Программа по проверке остаточных знаний

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Edit3: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  Adm:array [10..99] of longint;
  Teac: array [100..999] of longint;
  Stud: array [1000..99999] of longint;
implementation
 
uses Unit2, Unit3;
 
{$R *.dfm}
 
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
DataModule2.ADOQuery1.SQL.Clear;
DataModule2.ADOQuery1.SQL.Add('Select  Пароль FROM   Матрица_доступа WHERE Логин='+#39+Edit1.Text+#39);
DataModule2.ADOQuery1.Open;
if DataModule2.ADOQuery1.IsEmpty
 then
    ShowMessage('Пользователь ' + Edit1.Text +' не найден!')
    else
      if DataModule2.ADOQuery1.FieldByName ('Пароль').Value <> Edit2.Text
        then
        ShowMessage ('Пароль не верный!')
          else
             Form3.Show
          
end;
 
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then Button1.Click;
end;
 
 
 
 
end.

procedure TForm1.Button1Click(Sender: TObject);
begin
DataModule2.ADOQuery1.SQL.Clear;
DataModule2.ADOQuery1.SQL.Add('Select  Select  Пароль,ID FROM   Матрица_доступа WHERE Логин='+#39+Edit1.Text+#39);
DataModule2.ADOQuery1.Open;
if DataModule2.ADOQuery1.IsEmpty
 then
    ShowMessage('Пользователь ' + Edit1.Text +' не найден!')
    else
 
      if DataModule2.ADOQuery1.FieldByName ('Пароль').Value <> Edit2.Text
        then
        ShowMessage ('Пароль не верный!')
          else
          begin
            if DataModule2.ADOQuery1.FieldByName('ID').Value= '1'then
             Form3.Show
 
              else
               begin
                 if DataModule2.ADOQuery1.FieldByName('ID').Value= '2'then
                   Form7.Show
 
                  else
                   begin
                    if DataModule2.ADOQuery1.FieldByName('ID').Value= '3'then
                     Form8.Show;
                    end;
                    end;
                    end;
 
end;

case DataModule2.ADOQuery1.FieldByName('ID').AsInteger of
 1: Form3.Show;
 2: Form7.Show;
 3: Form8.Show;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DataModule2.ADOQuery1.SQL.Clear;
  DataModule2.ADOQuery1.SQL.Add('Select  Select  Пароль,ID FROM   Матрица_доступа WHERE Логин='+#39+Edit1.Text+#39);
  DataModule2.ADOQuery1.Open;
  if DataModule2.ADOQuery1.IsEmpty then
  begin
    ShowMessage('Пользователь ' + Edit1.Text +' не найден!');
    exit
  end;
 
  if DataModule2.ADOQuery1.FieldByName ('Пароль').Value <> Edit2.Text then
  begin
    ShowMessage ('Пароль не верный!');
    exit
  end;
 
  case DataModule2.ADOQuery1.FieldByName('ID').asInteger of
    1: Form3.Show;
    2: Form7.Show;
    3: Form8.Show;
   end;
end;

unit Unit6;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;
 
type
  TFrmzst = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Frmzst: TFrmzst;
 
implementation
 
{$R *.dfm}
 
procedure TFrmzst.FormCreate(Sender: TObject);
var t:LongInt;
begin
t:=GetTickCount div 1000;
while (GetTickCount div 1000)<t+5 do
end;
 
end.
 
 
а это файл проекта 
program Project1;
 
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {DataModule2: TDataModule},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4},
  Unit5 in 'Unit5.pas' {Form5},
  Unit6 in 'Unit6.pas' {Frmzst},
  Unit7 in 'Unit7.pas' {Form7},
  Unit8 in 'Unit8.pas' {Form8};
 
{$R *.res}
 
begin
  Application.Initialize;
  Frmzst:=TFrmzst.Create(Application);
  Frmzst.Show;
  Frmzst.Update;
  Application.CreateForm(TFrmzst, Frmzst);
  Frmzst.Hide;
  Frmzst.Free;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm7, Form7);
  Application.CreateForm(TForm8, Form8);
  Application.CreateForm(TDataModule2, DataModule2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.Run;
end.