[Kpyc]

Не помогает. Попробовал так:

Код:

  with Source do
    begin
      MyLoadImage('images\MyGif.gif', source);
      Height := SCREEN_Y div 10;
      Width := Source.Height;
      picture.Bitmap.transparentmode := tmAuto;
      picture.bitmap.TransparentColor := clWhite;
      picture.Bitmap.transparent := true;
      Stretch := TRUE;
    end;

Изображение исчезает совсем. Причем если поставить transparent = FALSE исчезает тоже. Появляется только если удалить все строчки связанные с прозрачностью (6-8).