items with negative x,y

[Segers_Geert]

curDataBlock := TPolygonBlock.Create(nil);

with curDataBlock do
begin
for f := 0 to high(numpoints) do
begin
pts := numpoints;

Polygon.Add(pts.X ,pts.Y);
end;
Diagram := DrawLayer;
LayerName :='test';

end;