Problemas para abrir archivo EXCEL

[[marceloalegre]]

Evidentemente no habia buscado bien en los foros y la respuesta estaba AQUI!!,, Les paso para el que lo necesite el codigo para conseguir el nombre de la primera hora para hacer el procesamiento. Esto es una modificacion de un codigo ya posteado por roman, GRACIAS.

Código Delphi [-]
procedure HojasExcel(Archivo: String; var nombreHoja:String);
var
  Excel: OleVariant;
  Libro: OleVariant;
  I: Integer;
begin
  Excel := CreateOleObject('Excel.Application');
  Libro := Excel.WorkBooks.Open(Archivo);
  nombreHoja:= Libro.Worksheets.Item[1].Name; //Hoja 1 del archivo excel
  Libro.Close;
end;
procedure TForm1.Button1Click(Sender: TObject);
var nombreHoja:string;
begin
  HojasExcel('c:\archivo.xls',nombreHoja);
  showmessage(nombreHoja);
end;