procedure ReplyError(AThread: TIdPeerThread; AServerPort: Integer; AClientPort: Integer; AErr: TIdIdentErrorType);