[Kpyc]

Вроде то что надо, только Transparent перестал работать. Гружу так:

Код:

      MyLoadImage('images\MyGif.gif', source);
      Source.Height := SCREEN_Y div 10;
      Source.Width := Source.Height;
      Transparent := TRUE;
      Stretch := TRUE;

MyLoadImage - Выше описанная функция с параметрами путь и TImage
Source - TImage

Код:

procedure MyLoadImage(fName: String; img: TImage);
var
  og: TOleGraphic;
  fs: TFileStream;
begin
  og:= TOleGraphic.Create;
  fs:= TFileStream.Create(fName, fmOpenRead or fmSharedenyNone);
  og.LoadFromStream(fs);
  img.Picture.Assign(og);
  fs.Free;
  og.Free;
end;