procedure PutObject(Index: Integer; AObject: TObject); override;

This is PutObject, a member of class TAnsiStringsForWideStringsAdapter.