AShape.ThePoints
define:
ThePoints:TArrMyPoint;
TArrMyPoint:Array of TMyPoint;
TMyPoint = record
x:single;
y:single;
end;

related method to access and change points:
GetPoint(i)
GetPointsInZoom(i)
SetPointx(f)
SetPointy(f)
SetPointXY(Pt);

Pen:TPen;
Set the pen of a TMyShape instance that you need;

Brush:TBrush;
Set the brush of TMyShape instance that you need;

Info:string;
Caption:string;