Не работает с эксель разных версий

procedure TForm33.Button3Click(Sender: TObject);
const xlCellTypeLast=$000000B;
VAR
 
s1,s2,s3,s4,s5,s6,s7,s8,s9:String;
excel:Variant;
i,j:Integer;
 
begin
 
excel :=CreateOleObject('Excel.Application');
excel.DisplayAlerts :=False;//отключаем запросы Excel
//excel.Visible := False;
 
if not OpenDialog1.Execute then Exit;
begin
Edit1.Text:= OpenDialog1.FileName;
//  showmessage('передача адреса книги');
 
try
excel.workbooks.Open(Edit1.Text); //открываем книгу Excel
//  showmessage('открыли книгу');
i :=2;   //считываем данные с 2-й строки книги
j := excel.ActiveCell.SpecialCells(xlCellTypeLast).Row;// последняя непустая строка
  // Процедура загрузки
//  showmessage('приступаем к перебору');
 
while i<>j+1 do begin
      s1 :=excel.cells[i,1].value; //считываем значение 1-й колонки
      s2 :=excel.cells[i,2].value; //2-й колонки
      s3 :=excel.cells[i,3].value; //3-й…
      s4 :=excel.cells[i,4].value;// и т.д.
      s5 :=excel.cells[i,5].value;
      s6 :=excel.cells[i,6].value;
      s7 :=excel.cells[i,7].value;
      s8 :=excel.cells[i,8].value;
      s9 :=excel.cells[i,9].value;
 
Form2.ADOConnection1.Connected:=True;
AdoTable1.Active:=False;
AdoTable1.TableName:='TEMP_ACC';
AdoTable1.Active:=TRUE;
AdoTable1.Insert;
AdoTable1.Fields.FieldByName('Barcode_temp').AsString:=s1;// 
AdoTable1.FieldByName('Cod_Nomenkl_List_temp').AsString:=s4;// 
AdoTable1.FieldByName('Name_Nomenkl_List_temp').AsString:=s5;// 
AdoTable1.FieldByName('Q_List_temp').AsFloat:=StrToFloat(s8);// 
AdoTable1.FieldByName('Cod_edIzm_List_temp').AsString:=s6;
AdoTable1.FieldByName('Cod_edIzm_List_Name_temp').AsString:=s7;
AdoTable1.FieldByName('NDS_temp').AsFloat:=StrToFloat(s9);
 
AdoTable1.Post;
inc(i);
AdoTable1.Active:=False;
Form2.ADOConnection1.Connected:=FALSE;
 
  end;
Excel.WorkBooks.Unassigned;
Excel.WorkBooks.Close;
Excel.Unassigned;
Excel.Quit;
 
Except;
end;
end;