procedure Traverse(UserData: Pointer; UserProc: TStrHashTraverseProc); overload;

This is Traverse, a member of class TStringHashTrie.