unit PointList;

interface

uses
//  Classes,    //TList
  ListClone,    //TListClone
  Types;        //TPoint

type
  TRecord = TPoint;

////////////////////////////////////////////////////////////
{$include RecordList.inc.pas}
////////////////////////////////////////////////////////////

  TPointList = TRecordList;

implementation

function RecordEqual(const Value1, Value2: TRecord): Boolean; forward;

////////////////////////////////////////////////////////////
{$include RecordList.inc.pas}
////////////////////////////////////////////////////////////

function RecordEqual(const Value1, Value2: TRecord): Boolean;
begin
  if ( TRecord(Value1).X = TRecord(Value2).X )
    and ( TRecord(Value1).Y = TRecord(Value2).Y ) then
  begin
    Result := True;
  end else
  begin
    Result := False;
  end;
end;


initialization
finalization
end.