[Alegun]

Можно вот так

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  og: TOleGraphic;
  fs: TFileStream;
begin
 if OpenDialog1.Execute then
  begin
   og:= TOleGraphic.Create;
   fs:= TFileStream.Create(OpenDialog1.FileName, fmOpenRead or fmSharedenyNone);
   og.LoadFromStream(fs);
   Image1.Picture.Assign(og);
   fs.Free;
   og.Free;
  end;
end;

на форму киньте имидж, кнопку и опендиалог