var
bmp :TBitmap;
Gif :TGifImage;
begin
if ExtractFileExt(CurrentFile)='.gif' then
begin
Gif:= TGifImage.Create;
Gif.LoadFromFile(CurrentFile);
bmp :=TBitmap.Create;
bmp.Assign(Gif);//在这里我用的d7版的TGifImage,会报错,但可以在外面忽略掉。
Image.picture.Bitmap.Assign(bmp);
end
end;