TRichEdit

Code:

uses re_bmp;

procedure TForm1.Button1Click(Sender: TObject);

begin

InsertBitmapToRE(RichEdit1.Handle,Image1.Picture.Bitmap.Handle);

end;

...

procedure TForm1.Button2Click(Sender: TObject);

var

bmp:TBitmap;

begin

if (not OpenPictureDialog1.Execute) then exit;

bmp:=TBitmap.Create;

try

  bmp.LoadFromFile(OpenPictureDialog1.Filename);

  InsertBitmapToRE(RichEdit1.Handle,bmp.Handle);

finally

  bmp.Free

end

end;