Найти площадь полигона
function GetPolygonArea(pBuf: PDoublePoint; n0,Count: integer): double;
pBuf
n0
значение площади