code program in delphi lanaguage

procedure LoadAnImage()
var 
  OleGraphic: TOleGraphic; 
  fs: TFileStream; 
begin 
  try 
    OleGraphic := TOleGraphic.Create; 
    fs         := TFileStream.Create('C:\...\image.gif', fmOpenRead or fmSharedenyNone); 
    OleGraphic.LoadFromStream(fs); 
    SampleImage.Picture.Assign(OleGraphic); 
  finally 
    fs.Free; 
    OleGraphic.Free 
  end; 
end;