procedure ReplyIdent(AThread: TIdPeerThread; AServerPort: Integer; AClientPort: Integer; AOS: String; AUserName: String; const ACharset: String);