Модальное окно из Dll

[neo1109]

Доброго всем!..

ИСХОДНЫЕ ДАННЫЕ:
Имеется программа, которой в начале работы необходимо показать окно логина...

Вначале было так...

procedure TFormMain.FormShow(Sender: TObject);
begin
  MayComeIn := false;

  LoginForm := TLoginForm.Create(Self);
  try
	LoginForm.ShowModal;
  finally
	LoginForm.Free;
  end;

  if not MayComeIn then Close;
end;

И все прекрасно работало. Окно формы логина модально отображалось и при этом основное окно ждало его закрытия.

Решил переделать прогу и начать использовать Dll.
Создал новый Dll-проект и загнал в него форму логина.
Само отображение формы производится следующей функцией

function ShowLogin(Handle: THandle;var UI : TUsrInfo):boolean;
begin
  result := false;
  //Установить указатель на приложение
  Application.Handle := Handle;
  //Создать форму
  LoginForm:= TLoginForm.Create(Application);
  //Отобразить
  LoginForm.ShowModal;
  //Очистить
  LoginForm.Free;

  UI := UsrInfo;

  result := MayComeIn;
end;

В главной форме основной программы теперь так

procedure TFormMain.FormShow(Sender: TObject);
begin
  MayComeIn := ShowLogin(Handle,UsrInfo);

  if not MayComeIn then Close;
end;

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

ВНИМАНИЕ ВОПРОС:
Как сделать так, чтобы окно логина стало модальным для окна основной программы?