1:
2:
3:
4:
5:
6:

  With combobox1.Items do
  begin
    Clear;
    For I:=0  to ? //Ende der Tabelle (breite)
        Add (?)        //die Überschrift der Spalte 
  end;					

1:
2:
3:
4:
5:
6:

  With combobox1.Items do 
  begin 
    Clear; 
    For I:=0  to (Table.FieldCount - 1) //Ende der Tabelle (breite) 
        Add (Table.Fields[I].DisplayLabel);        //die Überschrift der Spalte 
  end;					

1:

For I:=0  to (Table.FieldCount - 1) do