Insert bitmap in TRichEdit

Някой знае ли как мога да вмъкна bitmap изображение в TRichEdit
и после да запазя или принтирам съдържанието в TRichEdit компонентата?
Благодаря ви предварително за мненията

В борландския TRichEdit не можеш
Тука съм си правил разни тестове. Не помня до къде я докарах, но ето ти кода

procedure TForm1.Button1Click(Sender: TObject);

var

  SS: TStringStream;

  BMP: TBitmap;

begin

  BMP := TBitmap.Create;

  BMP := Image1.Picture.Bitmap;

  SS  := TStringStream.Create(BitmapToRTF(BMP));

  try

    PutRTFSelection(RichEdit1, SS);

  finally

    SS.Free;

    //BMP.Free;

  end;

end;



function TForm1.BitmapToRTF(pict: TBitmap): string;

var

  bi,bb,rtf: string;

  bis,bbs: Cardinal;

  achar: ShortString;

  hexpict: string;

  I: Integer;

begin

  GetDIBSizes(pict.Handle,bis,bbs);

  SetLength(bi,bis);

  SetLength(bb,bbs);

  GetDIB(pict.Handle,pict.Palette,PChar(bi)^,PChar(bb)^);

  rtf := '{\rtf1 {\pict\dibitmap ';

  SetLength(hexpict,(Length(bb) + Length(bi)) * 2);

  I := 2;

  for bis := 1 to Length(bi) do

  begin

    achar := Format('%x',[Integer(bi[bis])]);

    if Length(achar) = 1 then

      achar := '0' + achar;

    hexpict[I-1] := achar[1];

    hexpict[ i ] := achar[2];

    Inc(I,2);

  end;

  for bbs := 1 to Length(bb) do

  begin

    achar := Format('%x',[Integer(bb[bbs])]);

    if Length(achar) = 1 then

      achar := '0' + achar;

    hexpict[I-1] := achar[1];

    hexpict[ i ] := achar[2];

    Inc(I,2);

  end;

  rtf := rtf + hexpict + ' }}';

  Result := rtf;

end;

Ако е само за преглед, а не за редакция можеш да ползваш RichView компонентите. Наскоро видях, че са си пуснали версия 0.5.2 безплатно със сорс. А RichView-то е готин контрол
[линк]

Можеш да опиташ ActiveX-а от Visual Studio 6.0.
Пробвал съм-работи.

Целта ми е да запазя текст (препоръчително в rtf формат) с картинка/и
Някой знае ли как може да стане?

moje da go vmyknesh chrez OLE, no kak imenno, ne znam.
(win32 richedit supports OLE objects insertion).