procedure AddStrings(Strings: TTntStrings); virtual;

This is AddStrings, a member of class TTntStrings.