[TOJluK]

попробуй так:

Код:

//......
var
  Excel:Variant;
  i:integer;
begin
  try
      Excel := CreateOleObject('Excel.Application');//---создаем объект Excel и запускаем его
    except
      raise Exception.Create('Ошибка запуска Excel');
    end;
  Excel.Workbooks.Open[OpenDialog1.FileName];
  for i:=2 to row do
     begin
     v1:=Excel.Range['A'+intToStr(i)];
//......

думаю разберешься...