procedure ReplyOther(AThread: TIdPeerThread; AServerPort: Integer; AClientPort: Integer; AOther: String);