TRectClip64

type TRectClip64 = class

  procedure ExecuteInternal();

  function GetPath();

protected

  fResults: TList;

  fRect: TRect64;

  fPathBounds: TRect64;

  fRectPath: TPath64;

  fRectMidPt: TPoint64;

  fEdges: TOutPtArrayArray;

  fStartLocs: TList;

  procedure DisposeResults;

  procedure CheckEdges;

  procedure TidyEdgePair();

  function Add();

  procedure AddCorner();

  procedure GetNextLocation();

public

  constructor Create();

  destructor Destroy; override;

  function Execute();

end;

TRectClip64

TObject