TInteger-/TStringField zur Laufzeit erzeugen

[Nalincah]

Wenn man bei ner aktiven ADOTable nen Doppelklick macht, öffnen sich ein kleines Fenster. Per rechtsklick lassen sich dann mit "Alle Felder hinzufügen" alle Felder hinzufügen (Was sonst *g*). Jetzt meine Frage. Wie mach ich sowas zur Laufzeit? User öffnet ne Tabelle, drückt nen Button und alle Felder aus der Tabelle wurden erzeugt. Hoffe ihr versteht mich