А по мой просто надо открыть файл и читать из него:
procedure TForm1.Button1Click(Sender: TObject);
var
Ex:Variant;
st:string;
rt,j:integer;

begin
Try
Ex:=CreateOleObject('Excel.Application');
Except
Showmessage('?????? ?????? Excel');
Exit;
End;
OD.Execute;

rt:=-1;
Ex.Workbooks.Open(OD.FileName);

label4.Caption :=OD.FileName;
j:=6;
st:=Ex.Workbooks[1].WorkSheets[1].Cells[j,3];
while st<>'' do
begin
rt:=rt+1;
Stringrid :=st;//здесь сам додумаешь,
Stringrid :=inttostr(rt);//правд не забудь определить окончание
j:=j+1;//чтения из файла, у меня например пустая строка
st:=Ex.Workbooks[1].WorkSheets[1].Cells[j,3];

end;
rt2:=rt2+rt;
label3.Caption :=inttostr(rt2);
Ex.Application.ActiveWorkBook.save;
Ex.Application.ActiveWorkBook.Close;


end;