constructor TMain.create();
  begin
     //Applikation initialisieren
     Application.Initialize;

     initIntro();
     //mIntro := TIntroThread.Create(False);
     initDataModule();
     initScreens();
     Application.Run;

  end;


  destructor TMain.destroy();
  begin
...
  end;


  procedure TMain.initIntro();
  begin
    Try
      Application.CreateForm(TIntroForm, IntroForm);

      IntroForm.Show;
    Except
      On E:Exception Do
      Begin
      ...
      End;
    End;

  end;