Obtener nombres de las hojas al abrir un archivo (fichero) de Excel

[atirado]

Hola a tod@s!
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:

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
Un saludo desde MX a tod@s

Alejandro

[DarkByte]

Esto no pertenece a Servers?