Foros Club Delphi - Obtener nombres de las hojas al abrir un archivo (fichero) de Excel

Hola a tod@s! :D
Alguien sabe cómo obtener el nombre de las hojas de un archivo de Excel?
Es decir, hasta el momento, puedo abrir dicho archivo utilizando una acción predeterminada (TFileOpen de un actionlist), pero tengo qué poner manualmente en código el nombre de la hoja desde donde se mandan llamar los datos.
Lo que quisiera es que el usuario pudiera en un momento dado seleccionar con qué hoja desea trabajar.
El código que tengo definido es el siguiente:

Código:

procedure TfrmCompulsa.actAbrirImssAccept(Sender: TObject);

var

  strConexion : String;

begin

   strConexion := actAbrirImss.Dialog.FileName;

   dscImss.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;

Data Source='+strConexion+';

Mode=ReadWrite;Extended Properties=Excel 8.0;

Persist Security Info=False';

   dscImss.CommandType          := cmdTableDirect;

//justo aquí le digo que la hoja se llama nomina$

//y necesito que el usuario decida cuál hoja usar

   dscImss.CommandText          := 'nomina$';

   dscImss.Active                   := True;

   ShowMessage('Abierto '+strConexion);

end;

Muchas gracias de antemano :p
Un saludo desde MX a tod@s :cool:

Alejandro