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

Каков рекомендуемый способ убедиться, что основная форма полностью развернута и все элементы управления перерисованы перед отображением модальной формы при первой загрузке приложения?

Мне нужно показать модальное диалоговое окно при запуске приложения (не экран входа в систему), но если я установлю форму на wsMaximizedпри максимальном увеличении экрана, элементы управления не смогут перерисовываться, и вы остался с неприятным беспорядком.

В настоящее время я показываю модальный экран, используя следующее:

procedure TForm1.FormActivate(Sender: TObject);
var
  frmOrderLookup:TfrmOrderLookup;
begin
  onactivate := nil;
  frmOrderLookup:=TfrmOrderLookup.Create(nil);
  try
    frmOrderLookup.showmodal;
  finally
    frmOrderLookup.Free;
  end;
end;