[Jesús Pena]

Tengo un problema en el siguiente código Código Delphi

Código Delphi [-]
JvOpenDialog.InitialDir := ExtractFileDir(Application.ExeName);
    If JvOpenDialog.Execute then
    begin
      with dmDBExport.IBDataSet do 
      begin
        SelectSQL.Clear;  // elimino el contenido.
        SelectSQL.LoadFromFile(JvOpenDialog.FileName); // cargo la consulta almacenada en un fichero externo
        try
          Open;
          frmDBExport.Caption := 'Informe de la Consulta Personalizada ';
          Label1.Caption := sTabla;
          JvxCheckListBox1.Clear;
          JvxCheckListBox2.Clear;
          JvXPCheckbox1.Caption := 'Seleccionar Todo';
          JvXPCheckbox1.Checked := False;
          JvXPCheckbox2.Caption := 'Seleccionar Todo';
          JvXPCheckbox1.Checked := False;
          GroupBox2.Caption := 'Campos de la Tabla ' + sTabla;
 // Pretendo cargar en un listbox los campos obtenidos en la consulta
          for nIdx := 0 to FieldCount - 1 do
            JvxCheckListBox1.Items.Add(dmDBExport.IBDataSet.Fields[nidx].AsString); // !!! Error no muestra los campos muestra su contenido
          SpeedButton.Enabled := JvxCheckListBox1.SelCount > 0;
        except
          on Exception do Exception.Create('La consulta no es válida. Revise el fichero ' + stabla);
        end;
      end;

La Cosa es que quiero cargar la lista de los campos resultantes de la consulta y lo que obtengo es el contenido de los mismos no su nombre.

P.D. Utilizo D2006 + Firebird 1.5 con Ibx.