Saludos
Hice este procedimiento adaptando este codigo de uno de los moderadores de Este Foro:
Código Delphi
[-]procedure Animacionform(Enable: Boolean);
var
Info: TAnimationInfo;
begin
Info.cbSize := SizeOf(TAnimationInfo);
LongBool(Info.iMinAnimate) := Enable;
SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0);
end;
Puedes ponerlo en el evento E=OnCreate de Form Principal o donde gustes
Suerte