кстати проблему решил так:
Код:
procedure TSplashScreen.FormCreate(Sender: TObject);
begin
nGif:=TGIFImage.Create;
nGif.Assign(loader.Picture);
nGif.Animate :=False;
loader.Picture.Assign(nGif);
end;
procedure TSplashScreen.FormDestroy(Sender: TObject);
begin
nGif.Free;
end;
procedure TSplashScreen.FormShow(Sender: TObject);
begin
nGif.Animate:=True;
end;
в loader изначально загружена анимация, все работает отлично)