궁금한게 있어 몇자 적습니다.
파일을 읽어서 배열에 저장하려고 하는데요.. 잘안되네요...
읽을 파일은 .shp 파일 이구요...
레코드 구조가 이렇게 되어 있습니다..

PolyLine
{
     Double[4]                      Box
     Integer                          NumParts
     Integer                          NumPoints
     Integer[NumParts]        Parts
     Point[NumPoints]          Points
}

Field                       value                         Type                  Number
ShapeType                3                           Integer                    1
Box                          Box                         Double                      4
NumParts               NumParts                 Integer                     1
NumParts               NumPoints                Integer                     1
Parts                        Parts                       Integer                     NumParts
Points                      Points                      Integer                     NumPoints

이렇게 되면..

function UtShapeFile.Load(filename : String) : Integer;
var
  FH, iCount, tmp, i, n, ret : Integer;
  numpart, numpoint, parts, points : Integer;
  partidx, pointidx : array of Integer;
begin
  FH := FileOpen(filename, fmOpenRead);
  iCount := FileRead(FH, MainFileHeader, SizeOf(MainFileHeader));

  if (MainFileHeader.ShapeType = 3) then
  begin
    while (true) do
    begin
      ret := FileRead(FH, tmp, SizeOf(Integer));
      if (ret <> SizeOf(Integer)) then
        break;
      tmp := FileSeek(FH, SizeOf(Integer) * 1, 1);
      tmp := FileSeek(FH, SizeOf(Double) * 4, 1);

      numpart := FileRead(FH, numpart, SizeOf(Integer));
      numpoint := FileRead(FH, numpoint, SizeOf(Integer));
      SetLength(partidx, numpart);
      SetLength(pointidx, numpoint);

      partidx := FileRead(FH, partidx, SizeOf(Integer) * numpart);   // 에러발생

    end;
  end;
  FileClose(FH);
  Result := 1;
end;


이런식으로 해주면 안되는 건가요?
책을봐도 모르겠고.. 고수님들의 명쾌한 답변 부탁드립니다...ㅜㅜ