email con indy cual uso ; server o cliente

[cmena]

hola ,

Código Delphi [-]
   {...}
   IdSMTP1.Port := 25;
   IdSMTP1.Host := 'kovacs.cl'; {'smtp.kovacs.cl'}
   IdSMTP1.Username := '';
   IdSMTP1.Password := '';
   IdMessage1.Recipients.Add;
   IdMessage1.Recipients[0].Name := 'armijo';
   IdMessage1.Recipients[0].Address := '[email protected]'; {destino}
   IdMessage1.From.Name := 'mena';
   IdMessage1.From.Address := '[email protected]'; {remitetente}
   IdMessage1.Subject := 'prueba';
   IdMessage1.Body.Text := 'la raja';
   IdSMTP1.Connect(30000);
   try
     try
       IdSMTP1.Send(IdMessage1);
     except
       on exception E: Exception do
         ShowMessage('fallo');
       end;
   finally
     if IdSMTP1.Connected then
       IdSMTP1.Disconnect;
     end;
     IdMessage1.Free;
     IdSMTP1.Free;
   end;

se me cae con un error se socket #10053, el servidor kovacs.cl lo tengo en la intraweb, lo tengo con otra direccion de red pero dentro de la misma intraweb, dentro de la Lan tengo un router que me conecta con el servidor de correo, no tendre que definir la direccion ip del router como puerta de enlace? MI TCP/IP ESTA YA CONFIGURADO Y EL ENVIO DE CORREO POR EL OUTLOOK FUNCIONA CORRECTAMENTE.

[cmena]

no hay caso, se cae, kovacs.cl es mi servidor oficial de correo por que no conecta tendre que conficurar algo mas en el componente idsmpt?

Código Delphi [-]
   {...}
   IdSMTP1.Port := 25;
   IdSMTP1.Host := 'kovacs.cl'; {'smtp.kovacs.cl'}
   IdSMTP1.Username := '';
   IdSMTP1.Password := '';
   IdMessage1.Recipients.Add;
   IdMessage1.Recipients[0].Name := 'armijo';
   IdMessage1.Recipients[0].Address := '[email protected]'; {destino}
   IdMessage1.From.Name := 'mena';
   IdMessage1.From.Address := '[email protected]'; {remitetente}
   IdMessage1.Subject := 'prueba';
   IdMessage1.Body.Text := 'la raja';
   IdSMTP1.Connect(30000);
   try
     try
       IdSMTP1.Send(IdMessage1);
     except
       on exception E: Exception do
         ShowMessage('fallo');
       end;
   finally
     if IdSMTP1.Connected then
       IdSMTP1.Disconnect;
     end;
     IdMessage1.Free;
     IdSMTP1.Free;
   end;

[Sotrono]

Hola, encerra el codigo con la etiqueta code porque asi es imposible de leer.