gif (animated) aus Resource-Dateie in TImage laden

[Karsten]

es geht doch..., das '.Bitmap' war zuviel.

Danke an alle !

Gruß,
Karsten

Code:

var 
  TempGif: TGifImage; 
  ResStream: TResourceStream; 

begin 
  ResStream := TResourceStream.Create(HInstance, 'Picture', 'GIFIMG'); 
  TempGif  := TGifImage.Create; 

  try 
    TempGif.LoadFromStream(ResStream);
->  Image.Picture.Assign(TempGif);
  finally 
    FreeAndNil(ResStream); 
    FreeAndNil(TempGif); 

  end; 
end;