problema al enviar correo con autentificacion

[mjjj]

Estimados, resulta que tengo una plaicación que entre otra cosas envía correo electrónico. Recientemente, se modificó algunas propiedades del host y ahora es necesario autentificarse.

Les dejo el código con el cual enviaba correo.

Código Delphi [-]
     With IdMessage1 Do
     Begin
Body.Clear;
Body.Add('mensaje en correo');
Body.Add(datetostr(now)+', '+timetostr(now));
 
From.Text := '[email protected]';
Recipients.EMailAddresses := '[email protected]';
Subject := 'envío correo';
Priority := TidMessagePriority(mpHighest);
     End;
 
     With IdSMTP1 do
     Begin

          Username := '[email protected]';
          Password := 're1234';
          Host     := 'mail.cainsa.cl';
          Port     :=  25;
          try
             Connect;
             Try
                Send(IdMessage1);
             Finally
                Disconnect;
             End;
             ShowMessage('Se envio el mail en forma correcta');

          Except
                   ShowMessage('Fallo en el envio de email');
          End;
         If Connected Then Disconnect;
     End;

Que estaré haciendo mal?
Que necesito para corregir esto?

Saludos