Как прочитать все строки ListBox чужой программы

HWND hWnd = FindWindow("Iloot", NULL);
hWnd = FindWindowEx(hWnd, NULL, "ListBox", NULL);
TCHAR szTitle[256] = {0};
SendMessage(hWnd, LB_GETTEXT, 0, (LPARAM)szTitle);
sMemo1->Text=szTitle;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
HWND hWnd = FindWindow("TForm1","Ñïèñîê ïðîöåññîâ");
hWnd = FindWindowEx(hWnd, NULL, "TListBox", NULL);
TCHAR szTitle[256] = {0};
SendMessage(hWnd, LB_GETTEXT, 0, (LPARAM)szTitle);
Memo1->Text=szTitle;
}

    HWND hWnd = FindWindow(L"TForm1", L"Список процессов");
    hWnd = FindWindowEx(hWnd, NULL, L"TListBox", NULL);
    TCHAR szTitle[256] = {0};
    int Count = SendMessage(hWnd, LB_GETCOUNT, 0, (LPARAM)Count);
    for (int i = 0; i < Count; i++) {
        SendMessage(hWnd, LB_GETTEXT, i, (LPARAM)szTitle);
        Memo1->Lines->Add(szTitle);
    }