请教如何写10个字符串到内存,然后随机读取其中呢

请问怎么写10个字符串到内存,然后随机读取其中呢?
txt:=allocmem(256);
  HPro := OpenProcess(PROCESS_ALL_ACCESS, True, GetCurrentProcessId);
  stringtowidechar('hello',txt,256);
  Threadd:=VirtualAllocEx(HPro, nil, 256, MEM_COMMIT, PAGE_EXECUTE_READWRITE);
  WriteProcessMemory(HPro, Threadd, txt, 256, WriteCount);

  stringtowidechar('hello',txt,256);
  Threadd:=VirtualAllocEx(HPro, nil, 256, MEM_COMMIT, PAGE_EXECUTE_READWRITE);
  WriteProcessMemory(HPro, Threadd, txt, 256, WriteCount);





------解决方案--------------------
最简单的是设一个字段串数组

s:array [1..10] of string;

然后取1到10的随机数，取到几就取那个字符串
------解决方案--------------------
数组本来就是在内存啊
只是数组可能有长度限制而已
------解决方案--------------------
1、stringlist足够了。
2、读取的时候遍历吧
------解决方案--------------------
用字符串数组，random随机读取即可，不用遍历的