[Rc4uk]

Столкнулся с проблемой, при написании программы, пытаюсь считать данный из ячеек Excell табл. выводит ошибку
"Project Projecto.exe raised exception class EVariantInvalidOpError with nessage "Invalid variant operation". Process stopped. Use Step or Run to continue"
Вот текст процедуры

Код:

procedure TFm1.btn1Click(Sender: TObject);
    var i,j,k,n,m: integer;
    s: string;
    begin
     Tab:=CreateOleObject('Excel.Application'); {Запуск приложения Excel}
     Tab.Visible:=true;
     GetDir(0,dir);
     Tab.Workbooks.Open(dir+'\Graph.xls',0,True);
     s:=Tab.WorkSheets[1].Name;
     memo1.text:=s[1];
     
    for i:=1 to Tab.Sheets.count do //*перебор по листам*//
      begin
      s:=Tab.WorkSheets[i].Name;
      memo1.text:=memo1.text+s;
       n:=StrToInt(s[1]);
       memo1.text:=memo1.text+inttostr(n);
       n:=i;
       k:=7;
       j:=2;
       {while Tab.WorkSheets.Item[i].Cells[k,j]<>'' do //*перебор по строкам*//
      begin
      m:=1;
      Pred[n,m].Name:=Tab.WorkSheets.Item[i].Cells[k,2];
      Pred[n,m].Prp:=Tab.WorkSheets.Item[i].Cells[k+1,2];
       if Tab.WorkSheets.Item[i].Cells[k,3]='лекции'then Pred[n,m].Urok:=2;
       if Tab.WorkSheets.Item[i].Cells[k,3]='п/з'then Pred[n,m].Urok:=1;
       if Tab.WorkSheets.Item[i].Cells[k,3]='лаб.' then Pred[n,m].Urok:=0;
      Pred[n,m].Plan:=StrToInt(Tab.WorkSheets.Item[i].Cells[k,4]);
      j:=7;
       while (s<>'экзамен')and(s<>'зачет')and(s<>'нет') do  //*перебор по столбцам *//
        begin
         s:=Tab.WorkSheets.Item[i].Cells[k,j];
         Pred[n,m].God[j]:=StrToInt(s);
         memo1.lines.add(s);
         j:=j+1;
         m:=m+1;
        end;
     
       if not odd(k) then inc(k)
       else k:=k+2;
      j:=2;
      end;}
      end;
     Tab.Application.Quit;
     Tab.DisplayAlerts:=False;
     Tab:= UnAssigned;
     
    end;

Именно в тексте, который заключен в фигурные скобки и находиться ошибка. Установлен Borland Delphi 7 и Office 2010

Хотел также поинтересоваться, а как узнать о том что ячейка является последней заполненной