Fehlermeldung am Script

Dim $Array[5]

$Array[0] = "Eintrag1"
$Array[1] = "Eintrag2"
$Array[2] = "Eintrag3"
$Array[3] = "Eintrag4"
$Array[4] = "Eintrag5"

_INI_Write_Array(@ScriptDir & "\Test.ini", "FDFDFD", "TESTDFF", $Array)

Func _INI_Write_Array($_SR_INI_Name, $_SR_INI_Sectionname, $_SR_INI_Key, $_SR_INI_Array)
Local $INI_Var_Funktion = 0
$INI_Bound_Array = UBound($_SR_INI_Array)-1
For $INI_Var = 0 To $INI_Bound_Array
If $INI_Var_Funktion = 0 Then
$INI_Read_INI = IniRead($_SR_INI_Name, $_SR_INI_Sectionname, $_SR_INI_Key, "")
IniWrite($_SR_INI_Name, $_SR_INI_Sectionname, $_SR_INI_Key, $_SR_INI_Array[$INI_Var])
$INI_Var_Funktion = 1
Else
$INI_Read_INI = IniRead($_SR_INI_Name, $_SR_INI_Sectionname, $_SR_INI_Key, "")
IniWrite($_SR_INI_Name, $_SR_INI_Sectionname, $_SR_INI_Key, $INI_Read_INI & "|" & $_SR_INI_Array[$INI_Var])
EndIf
Next

Func _INI_Write_Array($_SR_INI_Name, $_SR_INI_Sectionname, $_SR_INI_Key, $_SR_INI_Array)
Local $INI_Var, $INI_Str=""
$INI_Str = _ArrayToString( $_SR_INI_Array,"|")
Local $Write = IniWrite($_SR_INI_Name, $_SR_INI_Sectionname, $_SR_INI_Key, $INI_Str)
Return SetError(@error, @extended, $Write)
EndFunc ;==>_INI_Write_Array