Procedure PointIsEditMultiEx(NP:String;PT:Integer);

Var
    CS,CS1:String;
    C: PSPoint;
    L,K,M,I,J:Integer;
    ET,CE: TSElement;

 begin
  For k:=0 to ElementList.count-1 do
   begin
   ET:=TSElement(ElementList.Objects[k]);
    if ET.SubElementList<>nil then begin

    if et.Name ='ChildFormEx' then
    For I:=0 to ET.SubElementList.Count-1 do begin
      Ce:=TSElement(ET.SubElementList.Objects[i]);
     if ce.Name='EditMultiEx' then begin

     M := IndexOfParamItem(NP,CE.ParamList);
       If M<>-1 then begin
        CS:=PSParam (CE.ParamList[M])^.Data;

       While true do begin

         if CS='' then exit;

          Next1(CS,'#');CS1:=Next1(CS,':');
          L:=StrToInt(CS1);CS1:=Copy(cs,1,L);Delete(cs,1,L);
           New(C);
           C^.Name:=CS1;
           C^.VName:='';
           C^.Rem:='';
           C^.Option:='';
           C^.PointDataType:='';
           C^.PointType:=pt;
           Et.PointList.Add(C);
           Next1(CS,'');
         end
       end;
      exit;
     end;

     end
    end
   end;
  end;
....
В конце SHA_Parser нужно добавить .
...
PointIsEditMultiEx('WorkCount' , ptDo);
PointIsEditMultiEx('EventCount', ptOn);
PointIsEditMultiEx('DataCount' , ptData);
PointIsEditMultiEx('VarCount'  , ptVar);