[Ошибки] Ошибка With Eval()

For $i = 1 To 6
   Assign('Report'& $i, ObjCreate('FastReport.TfrxReport'))
   With Eval('Report' & $i)
	  .Resources.LoadLanguageResourcesFromFile('Russian.frc')
	  .LoadReportFromFile($FRX[$i-1])
   EndWith
Next

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Date.au3>
#include <array.au3>

#NoTrayIcon
Dim $FRX = ['as.fr3','as43_s.fr3','aw41.fr3','ds41_s.fr3','ws7.fr3','ww7_s.fr3']

;--------------------------------------------
$sFasrReport_dll = @SystemDir & "\fastreport3.dll" ; путь к установленной библиотеке
If FileExists ($sFasrReport_dll) = 0 Then ; если файл не существует
    FileCopy (@ScriptDir & "\fastreport3.dll", $sFasrReport_dll, 1) ; копируем в системную папку
    RunWait(@SystemDir & '\regsvr32.exe /s ' & $sFasrReport_dll) ; регистрируем компонент в системе
EndIf
$sLanguage = @ScriptDir & "\Russian.frc"

;;;;;;;;;;;;;;;;

For $i = 1 To 6
   Assign('Report'& $i, ObjCreate('FastReport.TfrxReport'))
   With Eval('Report' & $i)
	  .Resources.LoadLanguageResourcesFromFile('Russian.frc')
	  .LoadReportFromFile($FRX[$i-1])
   EndWith
Next

...
   $oReport = Eval('Report' & $i)
   With $oReport
...