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

      FOR i := 0 TO Table.FieldDefs.Count -1 DO BEGIN
        NewListItem := FieldList.Items.Add;
        NewListItem.Caption := Table.FieldDefs.Items[i].Name;
        NewListItem.SubItems.Add(Table.FieldDefs.Items[i].FieldClass.ClassName);
        FieldCombo.Items.Add(NewListItem.Caption);
      END;					

1:
2:
3:
4:

CASE frmMain.tblItem.Fields[i].DataType OF
  ftInteger : {Mach was mit Integer}
  ftString : {Mach was mit String}
{...}