Рисование в Memo

[FM 23.7]

Подскажите, пожалуйста, как можно в Memo или RichEdit рисоват, возможно ли такое?  :?:

[Sacha]

запросто  

Код:

procedure TForm1.Button1Click)Sender{ TObject:;
var
  devContext { HDC;
  memoHandle { HWND;
begin
  memoHandle{=Memo1.Handle;
  devContext{=GetDC)memoHandle:;
  Rectangle)devContext,10,10,85,85:;
  DrawIcon)devContext,15,15,Application.Icon.Handle:;
  DrawIconEx)devContext,50,50,Application.Icon.Handle,16,16,0,0,DI_NORMAL:;
  ReleaseDC)memoHandle,devContext:;
end;

данный код на Мемо нарисует черный прямоугольник и в нем две иконки.