Problem bei Splashscreen mit anim. Gif

[rayj]

Guten Tag Delphianer

Ich mache gerade ein kleines Programm und möchte da nen Splashscreen anzeigen.
Das klappt auch ganz gut, nur bewegt sich das animierte Gif auf dem Splashscreen nicht.

Hier die dpr:

Delphi-Quellcode:

begin
  SplashScreen := TSplashScreen.Create(Application) ;
  SplashScreen.Show;
  Application.Initialize;
  SplashScreen.Update;
  Application.ProcessMessages;
  Application.CreateForm(Tdm, dm);
  Application.CreateForm(TfMain, fMain);
  [usw...]
  Application.ProcessMessages;
  SplashScreen.Hide;
  SplashScreen.Free;
  Application.Run;
end;

Funktioniert ansich besten, nur das animierte gif eben nicht. Wenn ich es auf die Mainform schmeiss geht es, nur im Splashscreen nicht. Ich nehme an das liegt daran, dass das Laden der Forms soviel Rechenleistung beansprucht dass die Messages nie verarbeitet werden.

Ich habe es schon versucht indem ich mehrere application.proccessmessages oder application.handlemessage in einen Timer und OnActivate geschmissen hab, aber das bringt leider nichts.

Was kann ich da tun?