Есть способ получить список листов с помощью ADO методом .OpenSchema(adSchemaTables) ТУТ пример на VBA Excel
Можно попробовать адаптировать под делфи