procedure TForm3.Mail;
 begin
  IdSMTP1.Host:=Edit1.Text;
  IdSMTP1.Port:=StrToInt(Edit2.Text);

 IdMessage1.CharSet:='windows-1251'; 
 IdMessage1.ContentType:='text/plain';
 
 IdSMTP1.AuthenticationType:=atLogin; // atNone
 IdSMTP1.Username:=Edit3.Text;
 IdSMTP1.Password:=Edit4.Text;
 
 IdMessage1.From.Name:=ConvertToWIN1251(Edit5.Text);
 IdMessage1.Subject:=ConvertToWIN1251(Edit11.Text);
 IdMessage1.From.Address:=Edit6.Text;
 IdMessage1.Organization:=ConvertToWIN1251(Edit7.Text);
 IdMessage1.Recipients.EMailAddresses:=Edit8.Text+','+Edit9.Text;
 IdMessage1.Body.Text:=Memo2.Text; 

 if FileExists(Edit12.Text,) then
    TIdAttachment.Create(IdMessage1.MessageParts,Edit12.Text);

 try
  try
   IdSMTP1.Connect(1000);
   sleep(200);
   Application.ProcessMessages;
   IdSMTP1.Send(IdMessage1);
   MessageBox(handle,PChar('Письмо отправлено.'+#13#10), PChar('Статус отправки!'), 64);
  except on E:Exception do
   begin
    sleep(200);

   MessageBox(handle,PChar('                     Письма не отправлено.'+#13#10+
'Не возможно подключится к почтовому серверу.'+#13#10), PChar('Статус отправки!'), 48);
   end;
  end;
 finally
  if IdSMTP1.Connected then IdSMTP1.Disconnect;
 end;
end;