[_fede]

Una idea puede ser:

procedure LeerEXCEL(AFichero: String);
var
I, J: Integer;
Excel: Variant;
begin
Excel := CreateOleObject('Excel.Application');
try
try
Excel.WorkBooks.Open(AFichero);

// Una línea en blanco define dos regiones diferentes.
for I := 1 to Excel.Rows.CurrentRegion.Rows.Count do
for J := 1 to Excel.Cols.CurrentRegion.Cols.Count do
begin
// Proceso.
end;
except
raise;
end;
finally
Excel.Quit;
end;
end;

Saludos.