Передача массива данных потоку

[bulldog5293]

Передаю с формы данные потоку и для проверки вывожу их через showmessage, но в место даных (букв или цыфр) выводится квадраты

var
  lSomeStructList: TSomeStructList;
X:array [0..9] of TX;
begin
for i:=0 to form1.Li stview1.Items.Count-1 do
begin
inherited;
SetLength(lSomeStru ctList, 3);
lSomeStructList[0].So me := form2.Listview1.Items[i].SubItems[0];
lSomeStructList[1].S ome := form2.Listview1.Items[i].SubItems[1];
lSomeStructList[2].Som e := form2.Listview1.Items[i].SubItems[2];
X[i]:=tX.Create(t rue);
X[i].S omeStructList := lSome StructList;
X[i].Resu me;
end;
end;

код потока

Type
  TSomeStruct = packed record
    Some: string;
  end;

TSomeStructList = array of TSomeStruct;

type
  TX = class(TThread)
  protected
    procedure Execute; override;

public
property SomeStructList: TSomeStructList read GetSomeStructList write SetSomeStructList;
end;


function TX.GetSomeStructList: TSomeStructList;
begin
  Result := FSomeStructList;
end;

procedure TX.SetSomeStructList(const Value: TSomeStructList);
begin
  FSomeStructList := Value;
end;


procedure TX.Execute;
var
  begin
 showmessage(FSomeStructList[(Length(FSomeStructList))].Some[1]);
end;