[T232006]

Здравствуйте, уважаемые любители и профессионалы.
У меня есть задача создать логоокно перед запуском основного окна, в котором бы отображался процесс загрузки основного окна (там длительные по времени процессы). Есть ли у вас какой-то готовый паттерн? Сейчас я делаю вот так (упрощенно)

Код:

constructor TForm1.Create(AOwner: TComponent);
begin
inherited;
  logoForm:=TLogoForm.Create(Application);
  TThread.ForceQueue(nil,
  procedure
  begin
    for var I:byte := 0 to 4 do
   begin
    sleep(2000);
    logoform.p.Position:=logoform.p.Position+10;
   end;
  end );
  logoform.Showmodal;
end;

Проблема в том, что пока не начнется Application.Run в программе, в логоокне не прорисовывается канвас. Уже чего только не перепробовал.