Gif в Delphi Опции

[Vardes]

Такой вопрос, как можно отбразить gif в Delphi в компоненте Image?

[volvo]

Использовать модуль AxCtrls (в Дельфи 6 уже присутствует):

procedure TForm1.Button1Click(Sender: TObject);
var
  OleGraphic: TOleGraphic;
  fs: TFileStream;
begin
  try
    OleGraphic := TOleGraphic.Create;
    fs := TFileStream.Create(ExtractFileDir(ParamStr(0)) + '\test.gif', fmOpenRead or fmSharedenyNone);

    OleGraphic.LoadFromStream(fs);
    Image1.Picture.Assign(OleGraphic);
  finally
    fs.Free;
    OleGraphic.Free
  end;
end;