[JeReK5542]

а если сделать так:

Код:

procedure TSplashScreen.FormCreate(Sender: TObject);
begin
nGif:=TGIFImage.Create;
nGif.LoadFromFile('img\loader.gif');
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;
loader.Picture.Assign(nGif);
end;

выскакивает таже ошибка