unit Users;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ExtCtrls, DBCtrls, DBTables, DB, Grids, DBGrids;
type
 TForm4 = class(TForm)
   DBGrid1: TDBGrid;
   DataSource_User: TDataSource;
   Table_User: TTable;
   DBNavigator1: TDBNavigator;
   Button1: TButton;
   Table_UserЛогин: TStringField;
   Table_UserПароль: TStringField;
   procedure Button1Click(Sender: TObject);
   private
   { Private declarations }
 public
   { Public declarations }
 end;
var
 Form4: TForm4;
implementation
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
begin
close;
end;
end.

unit Login;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls, Buttons, ExtCtrls, jpeg, DB, DBTables;

type
 TForm2 = class(TForm)
   Panel1: TPanel;
   BitBtn1: TBitBtn;
   BitBtn2: TBitBtn;
   Label1: TLabel;
   Label2: TLabel;
   login_edit: TEdit;
   password_edit: TEdit;
   Label3: TLabel;
   Image1: TImage;
   Button1: TButton;
   Table_user: TTable;
   Query1: TQuery;
   DataSource1: TDataSource;
   Query1Логин: TStringField;
   Query1Пароль: TStringField;
   procedure FormClose(Sender: TObject; var Action: TCloseAction);
   procedure BitBtn1Click(Sender: TObject);
   procedure BitBtn2Click(Sender: TObject);
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form2: TForm2;

implementation

uses Main;

{$R *.DFM}

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

begin
 if  Form2.ModalResult=mrOk then //если пользователь нажал на кнопку Ok, то
         if (login_edit.Text<>'') and (password_edit.Text<>'') then //поля не пустые
               begin
     //////////////
вот тут и должна быть проверка введенного в форму с записями в базе, накидайте код, я уже запутался. можно с помощью Query, я пробовал такого натворил вообще запускаться перестала
//////////////////////////////////////////////////////////////////////        

          end
          else Showmessage('Пароль неверный!');

          Application.Terminate;
         {если все вышеуказанные условия не выполняются,
          то остановить программу}

end;

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
Form2.ModalResult:=mrOk; //результат работы этого окна
Close; //закрыть это окно
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
Form2.ModalResult:=mrCancel; //результат работы этого окна
Close; //закрыть это окно
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
Messagedlg('Введите Ваш Логин и пароль!',mtinformation,[mbOk],0);
end;

end.