Splash and taskbutton

[WojTec]

I want to add splash:

Delphi-Quellcode:

begin
  Application.ProcessMessages;

  with TForm1.Create(nil) do
  try
    Show;

    Application.Initialize;
    Application.MainFormOnTaskbar := False;
    Application.Title := 'Project5';
    Application.CreateForm(TMainForm, MainForm);

    Sleep(1000);
  finally
    Free;

    Application.MainFormOnTaskbar := True;
    Application.Run;
  end;
end.

After F9 on 7 I have 2 taskbuttons: first when splash i visible, then it is destroyed, and another one when main form i showed. On XP it is showed after splash (when splash just icon is visible in taskbar). What I have to do to get one taskbutton?