#pas
TScArray = record
  Items:array of PScData;
  Count:integer;
end;

#pas
function lng_proc(parser:TParser; obj:pointer; index:integer; args:TArgs):TScData;
var i:integer; arg1:PScData; arr: PScArray;
begin
  case lng_indexer(index) of
    
    .......
    
    lng_ArrayTestMethod:
    begin  
      arg1 := args.Values[0];
      if arg1.GetType = data_array then
      begin
        arr := arg1.toArray;
        for i := 0 to arr.Count-1 do
        begin
          //arr.Items[i] - содержит элемент массива типа PScData
        end; 
      end;
    end; 
    
    .......
    
  end;
end;