THostNameGetEvent = procedure (Thread: TIdPeerThread) of object;
TIdHostNameServer provides event handlers for the event notification to allow the server to respond to the HostName commands.