TMemo

Code:

procedure TMyMemo.PaintImages;

var

MCanvas: TControlCanvas;

DrawBounds : TRect;

i, j : Integer;

OriginalRegion : HRGN;

ControlDC : HDC;

begin

MCanvas:=TControlCanvas.Create;

DrawBounds := ClientRect;  // Работаем с временной записью TRect.

try

  MCanvas.Control:=Self;

  ControlDC := GetDC ( Handle );

  MCanvas.Draw(0, 1, Application.Icon);

finally

   MCanvas.Free;

end;

end;