// очистка коментариев к точкам
procedure ClearDescription(var strLst: PStrList);
var i: integer;
sTmp: string;
begin
for i := 0 to strLst.Count -1 do
begin
sTmp := strLst.Items[i];
if pos('=',sTmp) > 0 then
strLst.Items[i] := Trim(gettok(sTmp,'='));
end;
end;

procedure THIVBJScript.SetEvent;
begin
FECount := NewStrList;
FECount.text := LowerCase(Value);
SetLength(_event_EventPoints,FECount.Count);
ClearDescription(FECount);
end;

procedure THIVBJScript.SetData;
begin
FDCount := NewStrList;
FDCount.text := LowerCase(Value);
SetLength(_data_DataPoints,FDCount.Count);
ClearDescription(FDCount);
end;

procedure THIVBJScript.SetWP;
begin
WP := NewStrList;
WP.Text := Value;
ClearDescription(WP);
end;

procedure THIVBJScript.SetVP;
begin
VP := NewStrList;
VP.Text := Value;
SetLength(FVArray, VP.Count);
ClearDescription(VP);
end;