anchor.diff:    else if SameText(Name, 'TrimExcess') then
       TrimExcess
     else
  -    raise EVariantDispatchError.Create('Variant method "' + Name + '" has not found');
  +    raise Exception.Create('Variant method "' + Name + '" has not found');
   end;
   
   procedure TAbstractList.Lock;
  
positive.code: end;
  
  initialization
  {$IFDEF DELPHI7_UP}
    OldVarDispProc := Variants.VarDispProc;
    Variants.VarDispProc := @IntfDispInvoke;
  {$ENDIF}
    VarObjectType := TVarObjectType.Create;
    varObject := VarObjectType.VarType;
  
  
negative.code: {$ENDIF}
  
  finalization
    Variants.VarDispProc := OldVarDispProc;
    FreeAndNil(VarObjectType);
  
  end.
  