{$IFDEF INTERFACE} // TGPoint = class TGPoint = class Coordinate: array[TGPointIndex] of TGPointType; //procedure SetArray(Items: array[TGPointIndex] of TGPointType); end; {$UNDEF INTERFACE} {$ENDIF} {$IFDEF IMPLEMENTATION} {$UNDEF IMPLEMENTATION} {$ENDIF}