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.