TOOLTIP_CLASS - В одном проекте работает, а в другом нет

[BLACK_RAIN]

Здравствуйте.
Нужно создать всплывающую подсказку для кнопки. Делаю так:

function CreateToolTip(var Handle: HWND; const Owner: HWND;
                       const TipText: string): Boolean;
var
  ti: TOOLINFO;
  r : TRect;
begin
  Handle := CreateWindowEx(WS_EX_TOPMOST,tooltips_class,'',
                           WS_POPUP or TTS_ALWAYSTIP,
                           cw_usedefault,cw_usedefault,cw_usedefault,cw_usedefault,
                           Owner,0,HInstance,nil);
  if Handle<=0 then
  begin
    result := False;
    Exit;
  end;
  GetClientRect(Owner,r);
  ti.cbSize := SizeOf(toolinfo);
  ti.uFlags := TTF_SUBCLASS;
  ti.hwnd := Owner;
  ti.hInst := HInstance;
  ti.uId := 0;
  ti.lpszText := PChar(TipText);
  CopyRect(ti.rect,r);
  Result := SendMessage(Handle,TTM_ADDTOOL,0,lparam(@ti))>0;
end;

//вызов
          InitCommonControls;
          btn := CreateWindow(pchar('Button'),pchar('fqytweurtkculvyi'),
          WS_VISIBLE or WS_CHILD or BS_ICON,0,0,32,32,wnd,0, hInstance, nil);
        if btn>0 then
        begin
          SendMessage(btn,BM_SETIMAGE,IMAGE_ICON,LoadIcon(0,IDI_ASTERISK));
          CreateToolTip(hint,btn,'gyre4juk');
        end;

В одном проекте это работает, а в другом - нет. Почему так?

[waleri]

Неправильное Owner окно?

[BLACK_RAIN]

Сообщение от waleri

Неправильное Owner окно?

Owner это хэндл кнопки, которой нужна подсказка. Задаю правильно.

[BLACK_RAIN]

Разобрался! Это просто я лошара!
тему можно удалить.
p.s. оффтоп. Как получить хэндл подсказки, которая назначена кнопке? FindWindowEx(btn,0,tooltips_class,n il); не находит.