¿Usas ADO, no?
Llenar el combo cboTablas con las tablas:
Código Delphi
[-]
ADOConnection.GetTableNames(cboTablas.Items);
Llenar el combo cboCampos con los campos de la tabla del combo anterior:
Código Delphi
[-]
ADOConnection.GetFieldNames(cboTablas.Text, cboCampos.Items);
// Saludos