Startfenster mit Timer

[web4martin]

Hallo,

hier der Quelltext meines Programmes, genauer der DPR-Datei...

Delphi-Quellcode:

program gewundver;

uses
  Forms,
  Windows,
  guv in 'guv.pas' {Main},
  ein_u_aus in 'ein_u_aus.pas' {ein_aus},
  Waehrung_1 in 'Waehrung_1.pas' {Waehrung},
  Starte in 'Starte.pas' {Begruessung};

{$E exe}

{$R *.res}

begin
  Application.CreateForm(TBegruessung, Begruessung);
  try
  Begruessung.show;
  Application.Initialize;
  Begruessung.Update;
  Sleep(3000);
  Application.Title := 'CalcMon 2003';
  Application.CreateForm(TMain, Main);
  Application.CreateForm(Tein_aus, ein_aus);
  Application.CreateForm(TWaehrung, Waehrung);
  Begruessung.hide;
  finally 
   Begruessung.Free; 
  end;
  Application.run;
end.

Nun habe ich das Problem, dass bei meiner Anwendung nur noch das Splashscreen angezeigt wird, aber nicht mehr die eigentliche Application...

Würde mich über Hilfe sehr freuen.

Mfg

Martin Schneider