#pas
procedure THiAsmClass.setOut;
// или функция 
begin
// здесь парсим rString и выводим на левые точки
end;

Procedure THiAsmClass.InexInList;
Begin
 ind:=toInteger(_Data);
// rString:= читаем из листа параметров;
   SetOut;
End;
Procedure THiAsmClass.IndexInData;
Begin
 ind:=toInteger(_Data);
// rString:= читаем из верхней точки
   SetOut;
End;
Procedure THiAsmClass.onInput;
Begin
 rString:=toString(_Data); // читаем строку со входа
 SetOut; 
End;

#pas
ReadXXXXX(_Data, _data_Parameters, _prop_Parameters);

procedure THIMemory._work_doValue;
begin
   FData := ReadData(_Data,_data_Data);
   _hi_CreateEvent(_Data,@_event_onData,FData);
end;

Add(MultiSetParam,9726328,315,224)
{
 Parameters=#4:1234|4:один|3:два|3:три|6:четыре|
 Char=" "
 Count=4
 OutType=1
 link(Index,7902700:Position,[])
 link(onSet1,11905319:doWork2,[])
 link(onSet2,11715168:doWork2,[])
 link(onSet3,9138061:doWork2,[])
 link(onSet4,9138061:doWork3,[(368,251)])
}
Add(ListBox,4589667,399,224)
{
 Left=100
 Top=40
 Width=210
 Height=235
}
Add(HubEx,11905319,364,224)
{
 link(onEvent,4589667:doAdd,[])
}
Add(HubEx,11715168,364,231)
{
 Angle=3
 link(onEvent,11905319:doWork3,[])
}
Add(Button,5675889,245,224)
{
 Left=35
 Top=45
 link(onClick,9726328:doSet,[])
}
Add(HubEx,9138061,364,238)
{
 Angle=3
 link(onEvent,11715168:doWork3,[])
}
Add(UpDown,7902700,322,168)
{
 Left=105
 Top=15
 Max=3
 link(onPosition,2404076:doText,[])
}
Add(Label,2404076,378,168)
{
 Left=130
 Top=20
 Caption="0"
}

Add(MainForm,2953706,161,126)
{
}
Add(MultiSetParam,9726328,231,182)
{
 Parameters=#4:1234|4:один|3:два|3:три|6:четыре|
 Char="|"
 Count=1
 OutType=1
 link(Index,7902700:Position,[])
 link(onSet1,4589667:doAdd,[])
}
Add(ListBox,4589667,315,182)
{
 Left=100
 Top=40
 Width=210
 Height=235
}
Add(Button,5675889,161,182)
{
 Left=35
 Top=45
 link(onClick,9726328:doSet,[])
}
Add(UpDown,7902700,238,126)
{
 Left=105
 Top=15
 Max=3
 link(onPosition,2404076:doText,[])
}
Add(Label,2404076,294,126)
{
 Left=130
 Top=20
 Caption="0"
}