兄弟的这段程序在编译时出现（'[' expected but ':='found），请兄弟们指点

兄弟的这段程序在编译时出现（'[' expected but ':='found），请兄弟们指点！！！procedure TForm1.btn21Click(Sender: TObject);
var
i,j : Integer;
LCID : Integer;
workbook : _Workbook;
worksheet : _Worksheet;
arrdata : Variant;
begin
   try
    excel.Connect;
   except
        ShowMessage('初始化Excel应用程序失败，请检查本机是否安装了Excel，请重试！');
        Beep;
        Exit;
   end;
       LCID := GetUserDefaultLCID(); 
       workbook := excel.Workbooks.Add(EmptyParam,LCID);
       worksheet := workbook.Worksheets[1] as _Worksheet;
       excel.Visible[LCID] := True;
       excel.Caption := '历史数据库文件';
       arrdata := VarArrayCreate([1,Form2.tbl2.RecordCount,1,Form2.tbl2.FieldDefs.Count],varVariant);
       Form2.tbl2.First;
       for i :=1 to Form2.tbl2.RecordCount do
         begin
           for j :=1 to Form2.tbl2.FieldDefs.Count do
               arrdata[i,j] := Form2.tbl2.Fields[j-1].AsString;
               Form2.tbl2.Next;
         end;
       下面这句出现编译错误了？？？请高手指点！（'[' expected but ':='found）
       worksheet.Range[worksheet.Cells.Item[2,1],worksheet.Cells.Item[Form2.tbl2.RecordCount+1,Form2.tbl2.FieldDefs.Count]].Value :=arrdata;
       with worksheet.Cells do
         begin
           item[1,1] :='时间';
           item[1,2] :='气体压力';
           item[1,3] :='物体密度';
         end;
       with worksheet.Range[worksheet.Cells.Item[1,1],worksheet.Cells.Item[1,form2.tbl2.FieldDefs.Count]].Font do
         begin
           bold :=true;
         end;
   // worksheet.Columns.EntireColumn.AutoFit;     
   excel.Disconnect;
end;