Нажать кнопку в чужом окне размещенную внутри других компонентах

function EnumChildProc(WndCtrl : HWND; lParam : Longint) : Boolean; stdcall;
var
  szClass : array[Byte] of Char;
  tbb     : TTBButton;
  Button  : TControl;
  I, J    : Integer;
begin
  Result := True;
 
  GetClassName(WndCtrl, szClass, SizeOf(szClass));
  if (lstrcmpi(szClass, 'TTOOLBAR') = 0) then
  begin
    J := SendMessage(WndCtrl, TB_BUTTONCOUNT, 0, 0);
    if J > 0 then
      for I := 0 to J - 1 do
      begin
        FillChar(tbb, SizeOf(TTBBUTTON), 0);
        // Переменная tbb не заполняется данными о кнопке
        if SendMessage(WndCtrl, TB_GETBUTTON, I, Longint(@tbb)) = 0 then
          Exit;
        // следующий код не работает
        Button := TControl(tbb.dwData);
        if Assigned(Button) and (Button is TToolButton) and ((Button as TToolButton).Name = 'tb_del_bad') then
          TToolButton(Button).Click;
    end;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  h : HWND;
begin
  h := FindWindow(NIL, 'tf_Main');
  if h <> 0 then
    if (not EnumChildWindows(h, @EnumChildProc, 0)) then
      Exit;
end;

var
  tb : HWND;
  rc : TRect;
 
  dwProcessID : DWORD;
  hProcess : THANDLE;
  p : Pointer;
  BytesRead : NativeUInt;
 
// ...
 
  tb := FindWindowEx(form, 0, 'TToolbar', nil);
 
  GetWindowThreadProcessId(tb, @dwProcessID);
  hProcess := OpenProcess(PROCESS_VM_OPERATION or PROCESS_VM_READ or PROCESS_VM_WRITE, False, dwProcessID);
  p := VirtualAllocEx(hProcess, nil, 4096, MEM_RESERVE or MEM_COMMIT, PAGE_READWRITE);
 
  SendMessage(tb, TB_GETITEMRECT, 2, LParam(p));
  ReadProcessMemory(hProcess, p, @rc, sizeof(rc), BytesRead);
 
  SendMessage(tb, TB_GETITEMRECT, 2, LParam(@rc));
  PostMessage(tb, WM_LBUTTONDOWN, 0, MakeLParam(rc.left, rc.top));
  PostMessage(tb, WM_LBUTTONUP, 0, MakeLParam(rc.left, rc.top));
 
  // не забудь освободить память...