Картинка и текст в одном поле таблицы

[_SERGEYX_]

Коллеги, привет.
Жена "припахала" написать ей программку для создания БД кулинарных рецептов с возможностью вставки картинок внутрь форматированного текста.

Я могу добавлять картинки в RichEdit (наподобие, как в Word-e), а вот с сохранением всего этого в БД как-то не приходилось сталкиваться. При обычном сохранении в blob-поле сохраняется только текст.

При добавлении картинки в RichEdit использую функцию

// Convert Bitmap to RTF Code 
function 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;

Если в RichEdit-е только картинка, то все сохраняется нормально:

Culinar.Edit;
CulinarDescription.Value:= BitmapToRTF(MyBitmap);
Culinar.Post;

А как сохранить в blob-поле сразу и картинки и текст?
(Ведь текст нужно записывать в неизменном виде, а картинки конвертировать в RTF).
Сорри, если непонятно написал.