http://homepages.borland.com/efg2lab/Graphics/PolygonArea.htm

여길 한번 가보시죠... 아마도 원하시는게 이거 같은데.

hsr////////////////////////////////////////////////////////////
아래것을 사용해보세요
VtxList는 동적배열로 사용하시면 버텍스가 많은 다각형도 구할수있습니다.

type
  TDPoint = packed record
    X: double;
    Y: double;
  end;
  VtxList = array[0..99] of TDPoint;
  PVtxList = ^VtxList;


//Polygon면적계산
FUNCTION GM_GetPolygonArea (Ver : PVtxList; nVer : integer): double;
var
  sz,s,x,y0,y1 : double;
  i : integer;
begin
  RESULT := 0;
  sz := 0.0;
  if (nVer>=3) then begin
     for i := 0 to nVer-1 do begin
         x := Ver[i].x;
         if i>0 then y0 := Ver[i-1].y
         else y0 := Ver[nVer-1].y;
         if i<(nVer-1) then y1 := Ver[i+1].y
         else y1 := Ver[0].y;
         s := x * (y0-y1);
         sz := sz + s;
     end;
     RESULT := abs( sz/2.0 );
  end;
end;

감솨함돠... 근데.. PVtxList = ^VtxList을 사용하는 이유를 잘 모르겠어요...

실행이 잘 안되는데.. 아직 초보라서.... 자세한 설명좀 부탁드릴께용.. ^^

interface
uses
....
type
  TDPoint = packed record
    X: double;
    Y: double;
  end;
  VtxList = array[0..99] of TDPoint;
  PVtxList = ^VtxList;
는 interface uses에 선언하셔야합니다.
PVtxList는 버텍스(다각형 꼭지점)좌표를 저장하는 xy구조체 배열입니다.
함수호출전에 이형으로 선언한 변수에 버텍스를 저장한후 실행해보세요.

hsr//////////////////////////////////////////////////////////////////

.