unit RectList;

interface

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

type
  TRecord = TRect;

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

  TRectList = 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).Left = TRecord(Value2).Left )
    and ( TRecord(Value1).Top = TRecord(Value2).Top )
    and ( TRecord(Value1).Right = TRecord(Value2).Right )
    and ( TRecord(Value1).Bottom = TRecord(Value2).Bottom ) then
  begin
    Result := True;
  end else
  begin
    Result := False;
  end;
end;


initialization
finalization
end.