procedure Exchange(Index1: Integer; Index2: Integer); virtual;

This is Exchange, a member of class TTntStrings.