Получить данные из другой программы из поля TVirtualDrawTree

procedure TForm1.Button1Click(Sender: TObject);
var
 h,h2:hwnd;
 s:array [0..255] of char;
begin
h:=findWindowex(FindWindow(nil,'[qip] - ******'),0,'TPanel',nil);
h2:=findWindowex(h,0,'TVirtualDrawTree',nil);
Edit1.Text:= IntToStr(h);
Sendmessage(h2,WM_GETTEXT,20,Integer(@s));
edin
//memo1.Lines.Add(string(s));
end;

procedure TForm1.HideDZ(hList2: hwnd);
var
vItemCount: Integer; // кол-во пунктов в списке
i: Integer;
vBuffer: array[0..255] of Char; // буфер для приема данных
vProcessId: DWORD; // идентификатор потока, который создал наш ListView
vProcess: THandle; // дескриптор для работы с процессом
vPointer: Pointer; // указатель на область выделенной памяти в чужом процессе
vNumberOfBytesRead: Cardinal;
vItem: TLVItem;
St: String;
begin
vItemCount := SendMessage(hList2, LVM_GETITEMCOUNT, 0, 0); // получаем кол-во пунктов в ListView
 
{ Получаем идентификатор потока, который создал ListView }
GetWindowThreadProcessId(hList2, @vProcessId);
{ открываем процесс связанный с vProcessId с правами записи/чтения памяти }
vProcess := OpenProcess(PROCESS_VM_OPERATION or PROCESS_VM_READ or PROCESS_VM_WRITE, False, vProcessId);
{ выделяем память в адресном пространстве этого процесса }
vPointer := VirtualAllocEx(vProcess, nil, 4096, MEM_RESERVE or MEM_COMMIT, PAGE_READWRITE);
 
try
for I := 0 to vItemCount - 1 do begin // перебираем все записи
with vItem do begin
mask := LVIF_TEXT; // запрашиваем текст
iItem := I;
iSubItem := 0; // мы получаем данные первого столбца (!!!)
cchTextMax := SizeOf(vBuffer);
pszText := Pointer(Cardinal(vPointer) + SizeOf(TLVItem)); // куда будет помешен результат
end;
WriteProcessMemory(vProcess, vPointer, @vItem, SizeOf(TLVItem), vNumberOfBytesRead);
SendMessage(hList2, LVM_GETITEM, I, lparam(vPointer));
{ считываем результат }
ReadProcessMemory(vProcess, Pointer(Cardinal(vPointer) + SizeOf(TLVItem)), @vBuffer[0], SizeOf(vBuffer), vNumberOfBytesRead);
 
St := vBuffer;
 
end 
finally
VirtualFreeEx(vProcess, vPointer, 0, MEM_RELEASE); // освобождаем память
CloseHandle(vProcess) // закрываем дескриптор доступа к процессу
end;
end;