Application.Run

[day]

Hallo
Ich möchte Application.Run in einer eigenene Klasse haben. Ich weiss sollte man eigentlich nicht machen. Aber ich versuche es trotzdem 8) .

Wie sieht aber der genaue ablauf ab, wann muss ich Run aufrufen?

Code:

  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;