procedure TForm1.Button1Click(Sender: TObject);
begin
form2.show;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
login:='123';
pass:='123';
if (Edit1.Text=login) and (Edit2.Text=pass) then Form3.Show else MessageDlg('Вы ввели неправильный логин или пароль!',mtError, mbOKCancel, 0);
end;