Открытие форм потока в Delphi

Я хочу создать новые экземпляры формы (и показать их) из потока. Но кажется, что он замораживает мое приложение и мой поток (мой поток становится потоком без синхронизации и замораживает мое приложение).

Вот так (но это не дает того, что я ищу)

procedure a.Execute;
var frForm:TForm;
    B:TCriticalSection;
begin
   b:=TCriticalSection.Create;
   while 1=1 do
   begin
     b.Enter;

        frForm:=TForm.Create(Application);
        frForm.Show;
     b.Leave;
     sleep(500); //this sleep with sleep my entire application and not only the thread.
      //sleep(1000);
   end;
end;

Я не хочу использовать метод Classes.TThread.Synchronize