試試以下程式
Var
  i:Integer ;
Begin
  With ClientDataSet1 Do Begin  
    ComboBox1.Items.Clear; // 先清除選項
    For i:= To FieldCount-1 Do Begin
      ComboBox1.Items.Add(Fields[i].FieldName);      
    End;
  End;
End;