Delphi - Mail Indy - tardanza

[shoulder]

Hola uso para enviar mail Indy, funciona muy bien con un adjunto de un pdf de 20kb, pero un tema que me reclaman, tarda alrededor de finalizar el envio unos 40 segundos y si uso outlook es mucho mas rapido y a veces tengo reclamos, hay forma de acelerar el Indy?.

Código Delphi [-]


Var
  mail : TIDMessage;
  smtp : TIdSMTP;
  vHandle: THandle;
  clave : string;
begin

  smtp := TIdSMTP.Create(self);
  // ASIGNO EVENTOS
  smtp.Name := 'Smtp';
  // CONFIGURACION DEL SERVIDOR AL QUE SE ENVIA EL CORREO
  with smtp do begin
    AuthenticationType := atLogin;
    Host := '.......' //Aqui colocas la direccion del servidor de correo saliente;
    port := 25;
    Username := ........................;//Aqui colocas la direccion de correo desde la que enviaras el correo;
    Password := ................................;
  end;

  mail := TIdMessage.Create(Self);
  // CONFIGURACION DEL MENSAJE A ENVIAR
  with mail do begin
    From.Address :=    unmailgeneral; //aqui va la direccion de correo desde la que vas a enviar
    Recipients.EMailAddresses := unmail;//aqui va la direccion de correo hacia la que vas a enviar
    Subject := 'Se le...';//Asunto del correo
    body.Text  := '.....................................'//Texto del correo
  end;

  //aDJUNTA EL ARCHIVO

     TIdAttachment.create(mail.MessageParts,archivo);

  try
    // CONEXION CON EL SERVIDOR DE CORREO
    smtp.Connect(10000);
    try
      // ENVIO DEL MENSAJE
      smtp.Send(mail);
    except
      on E: Exception do
         ShowMessage('Fallo al enviar: ' + E.Message);
    end;
    //ShowMessage('Mensaje enviado satisfactoriamente');





    MsgUser := 'Mensaje enviado satisfactoriamente';
    MessageBox(Handle, PChar(MsgUser), PChar('Information'), MB_OK + MB_ICONINFORMATION);
    vHandle := FindWindow(nil, 'Information');
    if vHandle <> 0 then
       SetForegroundWindow (vHandle);





  finally
    if SMTP.Connected then SMTP.Disconnect;
    smtp.free;
    mail.free;

  end;