Работа с листами при экспорте в Excel

[Fordewind]

Я работаю с Excel через Excel Buffer. Для смены листов добавлял в стандартную таблицу функцию:

SelectSheet(Caption : Text[60])
XlWorkSheet := XlWorkBook.Worksheets.Item(Caption);
XlWorksheets.Select;