procedure TFormImportaExcel.NTButton1Click(Sender: TObject);
var
appExcel : Variant;
N, Hoja : SmallInt;
contenido : String;
begin
appExcel := CreateOleObject('Excel.Application');
appExcel.WorkBooks.Open('C:\ARCHIVO.XLS');
Hoja:=1;
N:=0;
while true do begin
Inc(N);
Contenido := appExcel.WorkBooks[1].Worksheets[Hoja].Cells[N,1];
if Contenido='' then break
end;
appExcel.Quit;
appExcel := Unassigned;
end;