Cara Mudah Memanggil Berbagai Macam Format Image(Gif, Ico, Jpeg ,dll ) kedalam TImage

uses axCtrls
    ...
procedure TForm1.Button1Click(Sender: TObject);
var
  OleGraphic: TOleGraphic;
  fs: TFileStream;
begin
  try
    OleGraphic := TOleGraphic.Create;
    fs := TFileStream.Create('C:\...\image.gif', fmOpenRead or fmSharedenyNone);
    OleGraphic.LoadFromStream(fs);
    Image1.Picture.Assign(OleGraphic);
  finally
    fs.Free;
    OleGraphic.Free
  end;
end;