procedure Put(Index: Integer; const S: AnsiString); override;

This is Put, a member of class TAnsiStringsForWideStringsAdapter.