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;