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

[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; 


بالتوفيق.