Error en componente IdFTP con delphi 7

[[kurono]]

hola amigos les cuento que tengo un codigo para conectarme a un ftp el cual me da el siguiente error List index out of bounds (0) lo currioso del caso es que ese mismo codigo lo tengo en otro proyecto y no me da error funciona perfectamente que podra ser, intente actualizando a las indy 10 y me da el mismo error, una cosa mas el componente IdFTP es el que viene por defecto con delphi 7

este es el codigo

Código Delphi [-]
var
  TS:TStrings;       // TStringList creada para leer el fichero
begin
     try
        with IdFTP1 do
        begin
           Host :=txt_servidor.Text ; //direccion ftp: ftp.mydominio.com o IP
           Username :=txt_usuario.Text;   //nombre de usuario
           Password :=txt_password.Text;   //contraseña
           Port :=StrToInt(txt_puerto.Text);   //normalmente el 21
           ReadTimeout:=StrToInt(txt_tiempo.Text);
           Connect;
           if (Connected) then
          try
             txt_Barra.Panels[0].Text:='Estado :Conectado';
             txt_Usuario.Enabled:=False;
             txt_Password.Enabled:=False;
             btn_conectar.Enabled:=False;
             except
             txt_Barra.Panels[0].Text:='Error a Conectar';
             txt_Usuario.Enabled:=true;
             txt_Password.Enabled:=true;
             btn_conectar.Enabled:=True;
           end;
         end;
     except
        on e:Exception do
        try
           {Escribo un log de errores}
           ts := TStringList.Create;
           ts.Add('FTP - '+DateTimeToStr(Now));
           ts.Add(e.Message);
           ts.SaveToFile('FTP.log');
        finally
           ts.Free;
           Application.MessageBox('Contraseña o Usuario Incorrecto','Advertencia',MB_ICONWARNING);
        end;
     end;
  end;
end.

[roman]

¿En qué línea te da el error?

// Saludos

[[kurono]]

en ninguna linea cuando compilo y hago clic en el boton para conectar es que me lanza el error fuera de delphi el ejecutable me lansa la execpcion que e declarado en el codigo pero nuca llega a conectarse lo que me inquieta mas es que ese mismo codigo lo tengo en un proyecto viejo y funciona perfectamente

[roman]

¿Tienes desactivada la opción Stop on delphi Exceptions? Sí es así, actívala para que la ejecución se detenga dentro de delphi.

// Saludos

[[kurono]]

en donde se encuentra esa opcion no lo veo por ningun lado

[roman]

En Tools|Debugger Options|Language Exceptions

// Saludos