[M.A.D.M.A.N.]

Сообщение от geniusbsd

А как на счет вашего варианта if TfrmUserLogin.UserLogin(Application, TfrmMain.UserLoginInfo) then
Обясните?

Первая часть сообщения, а не вторая, смотри внимательно, я там твой код редактировал.

Во второй части, то просто класс-функция, в которой создается форма и так же вызывается ShowModal.

Код:

class function TfrmUserLogin.UserLogin(AOwner: TComponent): Boolean;
var
  frm: TfrmUserLogin;
begin
  frm := TfrmUserLogin.Create(AOwner);
  try
    Result := frm.ShowModal = mrOk;
  finally
    frm.Free;
  end;
end;