在delphi原有控件基础上画图

var
   C:TControlCanvas;
begin
   C := TControlCanvas.Create;
   C.Pen.Color := clRed;
   C.Pen.Width := ;
   C.Control := Memo1;
   C.MoveTo( , );
   C.LineTo( ,  );
   C.Free;
end;