#pas
var txt:string;
begin
  i:= ReadInteger(_Data,Ind);
  txt:= ReadString(_Data,InTxt) + #0;
  SharedStrVarSet(@txt[1], i);
end;