>>699
MessageDlgの直後に、ModalResult := mrNone; を置く。