доступ к данным packed record

[bulldog5293]

Как получить без Random данные из него не пойму, с Random получаю, а без него получаю мусор

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 := 'stat';
lSomeStructList[1].S ome := 'zenit';
lSomeStructList[2].Som e := 'fox';
X[i]:=tX.Create(t rue);
X[i].S omeStructList := lSome StructList;
X[i].Resu me;
end;
end;

и в потоке

e
  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[Random(Length(FSomeStructList))].Some);
end;

вот как без рандома их получать в самом потоке?

А таким макаром

var
z:string;
begin
 z :=FSomeStructList[(Length(FSomeStructList))].Some[1];
showmessage(z);
end;

TM показывает, при любом вводе