procedure WSGetPeerName(ASocket: TIdStackSocketHandle; var VFamily: Integer; var VIP: string; var VPort: Integer); override;