IObjectList.ExtractAll fails with only one element in the list

A Range check error occurs when the following code is run against an Object list with only one element

var
  ResultList : IObjectList;
  Obj : TObject;
begin
  Obj := TObject.Create;
  ResultList.Add(Obj);

 ResultList.ExtractAll(function (const AObject : TObject) : boolean  <-- Fails with Range Error
          begin
            Result := True;
          end);
end;

Comments (2)