C[i]:=TStringList.Create; SetValue(i, Name, Hstr(pck[1])); SendMsc('#$'+GetValue(i, Name)); if i=max then start:=false; inc(i);