مشكله في كود ارسال

[سيل الجليد]

السلام عليكم

لدي خلل بسيط جداً في هذا الكود كود الارسال
اذا لم تظهر الكتابه في memo هذا هي:
{يتم عرض التقرير في هذي الصفحه بعد ان تتم عمليه البحث في الاعلى
ولمعرفه التقرير المراد عرضه وارساله اضغط على الزر الي باسفل}
ولم تكن لدي اي معلومه عنه الان البرانامج اصبح كامل وجاهز

[kachwahed]

وعليكم السلام ورحمة الله
لم تذكر الخلل !
مثال للتوجيه:

PHP كود :

IdIPWatch1: TIdIPWatch;
    IdSMTP1: TIdSMTP;
    IdMessage1: TIdMessage;
    IdAntiFreeze1: TIdAntiFreeze;    
//...
procedure TMainForm.Button1Click(Sender: TObject);
begin
   if idipwatch1.LocalIP = '127.0.0.1' then
    begin
     MessageBoxA(handle, 'Not connected','',MB_ICONINFORMATION);
     exit;
    end;

   IdSMTP1.Connect(5000);
   idmessage1.From.Text := edit5.text;
   idmessage1.Recipients.EMailAddresses := edit2.text;

   idmessage1.Subject := 'Sebject';
   idmessage1.Body.Text := 'Text...';

   if fileexists(edit1.Text) then TIdAttachment.Create(idmessage1.MessageParts,edit1.Text);

   IdSMTP1.Send(idmessage1);

   idsmtp1.Disconnect;
   MessageBoxA(handle,'ok','',MB_ICONINFORMATION);
 end; 


بالتوفيق.

[سيل الجليد]

تم ايجاد المكونات الي كتبتها لاكن يظهر خطأ عند الظغط على زر sent

PHP كود :

idsmtp1.Disconnect; 


هذا الخطأ بعد عمليه الاتصال مع اني مثبت برنامج YPOP للياهو
والارسال من الياهو الى الياهو