ممنون.
كدي كه در آن تاپيك گذاشته بوديد امتحان كردم. مشكلم حل شد.
البته در ابتدا ايميل ارسالي خالي مي‌رفت. با حذف بخش message partي كه با MailText درست كرده بوديد و انتصاب مستقيم IdMessage1.Body.Text := EncodedText مشكل حل شد