读取表中字段名到listbox

Question

如题
如有表1         
  名称   编码
    A    1
   B    2要读取字段名， 名称，编码加到listbox中，
If DataModule1.DeptCDS.RecordCount>0 Then
  Begin
    Rec_Num:= DataModule1.DeptCDS.FieldCount;
    For i:=0 To Rec_Num-1 Do
        begin
        listbox1.Items.Add(DataModule1.DeptCDS.?????);
        DataModule1.DeptCDS.Next;
        end;
    end;deptcds是clientDataset 如何读字段名？