Как сделать вход по логину и паролю для 2 пользователей

[студентка_диплом]

для 1 пользователя получается сделать а второго не могу добавить. подскажите что и где приписать надо?

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, XPMan, StdCtrls;

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    XPManifest1: TXPManifest;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2; l,p:integer;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
form2.Close;

end;


procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if (edit1.text<>'логин1') or (edit2.text<>'пароль1')
then  form1.close ;

end;

end.

[Stilet]

Ну если твоей логике следовать то:

if ( 
     (edit1.text<>'логин1') and(edit2.text<>'пароль1')
   ) or (
     (edit1.text<>'логин2') and(edit2.text<>'пароль2')
   )
then
 зашли
else
 неверно

[студентка_диплом]

Нет так не получается.
после then я написала form1.close,
else как ошибку дал, если удалить else, программа запускается но при вводе нужного логина и пароля выкидывает из программы.

до этого я пробовала с таким кодом

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, XPMan, StdCtrls;

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    XPManifest1: TXPManifest;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2; l,p:integer;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
 if edit1.text='é' then l:=1 else l:=0;
if edit2.text='é' then p:=1 else p:=0;
if(p+l)>1 then form2.close else label4.caption:='Ââåäåí íåâåðíûé ëîãèí èëè ïàðîëü';
if edit1.text='ö' then l:=1 else l:=0;
if edit2.text='ö' then p:=1 else p:=0;
if(p+l)>1 then form2.close else label4.caption:='Ââåäåí íåâåðíûé ëîãèí èëè ïàðîëü';

end;

end.

все работало
но потом обнаружила что при закрытии окна авторизации, главная форма все равно открывается, на форуме тут прочитала что лучше на кнопке прописать

form2.close;

а вот код в FormClose
Попытка тупо скопировать это

f edit1.text='é' then l:=1 else l:=0;
if edit2.text='é' then p:=1 else p:=0;
if(p+l)>1 then form2.close else label4.caption:='Ââåäåí íåâåðíûé ëîãèí èëè ïàðîëü';
if edit1.text='ö' then l:=1 else l:=0;
if edit2.text='ö' then p:=1 else p:=0;
if(p+l)>1 then form2.close else label4.caption:='Ââåäåí íåâåðíûé ëîãèí èëè ïàðîëü';

в FormClose, потерпела неудачу. попробовала так как описала выше, но работает только на 1 пользователя как добавить второго так и не пойму((

[Stilet]

Вот так работает:

if ( 
     (edit1.text='логин1') and(edit2.text='пароль1')
   ) or (
     (edit1.text='логин2') and(edit2.text='пароль2')
   )
then
 ShowMessage('Бобро пожаловать')
else
 ExitProcess(0);

[студентка_диплом]

если сделать так то при запуске сразу выдается сообщение добро пожаловать.
а потом открывается форма авторизации(она у меня не главная) и если на крестик закрыть снова открывается главное меню(главная форма). а у меня вся проблема в том что я не могу совместить чтобы было 2 пользователя и при закрытии окна авторизации програмка закрывалась а не переходила на главную форму т.к весь смысл паролей теряется ведь можно просто нажать на крестик и откроется главная форма.

[Stilet]

Я понял (хоть и не сразу) поправил пост. Просто ExitProcess или Halt используй если пароль неверный.