I am trying to run the script below, but an error is displayed on line 4, would anyone have any suggestions?

 Code:
Break ON
$cor = @COLOR

$GrpArray = split(ReadProfileString($pFile, "", ""), chr(10))
For Each $Grupo in $GrpArray
    If $pOpc = "R"
        If ($Grupo = "Service")
            $GrpChave = split(ReadProfileString($pFile, $Grupo, ""), chr(10))
            $Server = ReadProfileString($pFile, $Grupo, "Name")
            ? COLOR +G/n $Grupo COLOR +Y/n " ->" COLOR +R/n " Service" COLOR +Y/n " = " COLOR +W/n $Server COLOR $cor
        EndIf
        If ($Grupo = "TCP")
            $GrpChave = split(ReadProfileString($pFile, $Grupo, ""), chr(10))
            $Port = ReadProfileString($pFile, $Grupo, "Port")
            ? COLOR +G/n $Grupo COLOR +Y/n " ->" COLOR +R/n " Port  " COLOR +Y/n " = " COLOR +W/n $Port   COLOR $cor
        EndIf
    EndIf
Next


 Code:
Port Tools
ERROR : invalid method/function call: too many parameters!
Script: M:\ports.kix
Line  : 4
_________________________