Statusformular????

[DelphiDeveloper]

das kannst du doch in dem dpr file machen; hier ein Codeschnipsel aus einer anwendung die ich mal vor
Jahren erstellt habe.
Hoffe damit kommst du weiter!

Code:

begin
  Application.Initialize;
  try
    Application.Title := 'xx';
    FormSplash := TFormSplash.Create(Application);
    FormSplash.Show;
    FormSplash.Gauge1.Progress := 20;
    sleep(50);
    FormSplash.Update;

    Application.CreateForm(TDMA, DMA);
    FormSplash.Gauge1.Progress := 30;
    sleep(200);
    FormSplash.Update;

    Application.CreateForm(TDMStoredProcs, DMStoredProcs);
    FormSplash.Gauge1.Progress := 40;
    sleep(200);
    FormSplash.Update;

    Application.CreateForm(TDMMail, DMMail);
    FormSplash.Gauge1.Progress := 50;
    sleep(200);
    FormSplash.Update;

    Application.CreateForm(TDM1, DM1);
    FormSplash.Gauge1.Progress := 60;
    sleep(200);
    FormSplash.Update;

    Application.CreateForm(TDMDruck, DMDruck);
    FormSplash.Gauge1.Progress := 70;
    sleep(50);
    FormSplash.Update;

    Application.CreateForm(TFormMain, FormMain);
    FormSplash.Gauge1.Progress := 80;
    FormSplash.Update;
    sleep(50);

    Application.CreateForm(TDMLesen, DMLesen);
    FormSplash.Gauge1.Progress := 85;
    FormSplash.Update;
    sleep(50);
    FormSplash.Gauge1.Progress := 90;
    FormSplash.Update;
    sleep(50);
    FormSplash.Gauge1.Progress := 95;

  finally
    FormSplash.Hide;
    FormSplash.Free; // Splashformular freigeben

  end; // try
  Application.run;
end.