var

   C:TControlCanvas;

begin

   C := TControlCanvas.Create;

   C.Pen.Color := clRed;

   C.Pen.Width := ;

   C.Control := Memo1;

   C.MoveTo( , );

   C.LineTo( ,  );

   C.Free;

end;