procedure TraverseProc(UserData: Pointer; UserProc: Pointer; Value: DWORD; Data: DWORD; var Done: Boolean);

This is TraverseProc, a member of class TStringHashTrie.