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

This is Exchange, a member of class TTntStringList.