[COD] Splash Fade DELPHI

// Apenas crie dois frames:
// frmSplash  e  TfrmProg
procedure TfrmProg.FormCreate(Sender: TObject);
    begin
        //criar o splash
        frmSplash := TfrmSplash.Create (Application);
        frmSplash.Show;
        frmSplash.Update;

        frmProg.visible := false; // deixar o main invísivel enquanto inicia

        // efeito fade no splash
        while frmSplash.AlphaBlendValue < 255 do
        begin
            sleep(10);
            frmSplash.AlphaBlendValue:= frmSplash.AlphaBlendValue + 2;
        end;

        //fechar splash
        frmSplash.free;

        //mostrar o main de volta
        frmProg.visible := true;
    end;
end

//Criado por Bruno
// www.ips-team.blogspot.com