[одинадцатый]

К сожалению ни чего не получилось(

Через Trace into посмотрел программа еще вот здесь:

Код:

 
...
hProcess := OpenProcess(PROCESS_ALL_ACCESS, True, dwProcessID);
  if hProcess = 0 then Exit;
  pszText := VirtualAllocEx(hProcess, nil, 255,
                            MEM_COMMIT or MEM_TOP_DOWN, PAGE_READWRITE);
  if GetLastError <> 0 then Exit;
...

переменной pszText присваивает "". В итоге стринггрид пустой получается, хотя кол-во ичеек верное становиться.
В чем дело господа знатоки?