kleiner Tipp:
nimm lieber eine
Query, die eine leere Datenmenge zurückliefert:
ADSQuery1.SQL.Text:='SELECT * FROM '+tabellename+ ' WHERE 0=1';
Bei Tabellen mit sehr vielen Datensätzen könnte es sonst sehr lange dauern,
da die Datensätze von der
VCL abgerufen werden, obwohl du wahrscheinlich nur die Feldnamen brauchst.