procedure AddStrings(Strings: TTntStrings); override;

This is AddStrings, a member of class TTntRichEditStrings.