uses
rtcInfo;
...
procedure TForm2.Image7Click(Sender: TObject);
var
_Item : TListBoxItem;
I : Integer;
StrArray : TRtcArray;
begin
with UticketEntry.FormTicketEntry do
begin
RtcClientModule1.Prepare('DataFromClient');
StrArray := RtcClientModule1.Param.newArray('name');
for I := 0 to ListBox1.Items.Count - 1 do
begin
_Item := ListBox1.ItemByIndex(i);
StrArray.asText[I] := _Item.Binding['desc1'];
end;
Call(RtcResult1);
end;
end;