请问怎么写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的随机数，取到几就取那个字符串

数组可以保存到内存吗?