🚀 go-pugleaf

Hi again and very thx for your answers
In the code below I do many changes and troes but still nothing ...
What should I learn in additoinal????
( What changes is necessary still? )

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   HWND hwndToolTips = CreateWindow(
        TOOLTIPS_CLASS, //Registred Class
        NULL,           //Window Name
        WS_POPUP | TTS_NOPREFIX | TTS_BALLOON | WS_VISIBLE,//Window Style
        0, 0,//x.y
        0, 0,//W,H    <-- Dont need any value?
        NULL,//Parent <-- Form1 ????
        NULL,//Menu
        NULL,//Instant
        NULL//Param
   );
   if (hwndToolTips){
      TOOLINFO ti={0};
      ti.cbSize = sizeof(ti);
      ti.uFlags = TTF_TRANSPARENT | TTF_CENTERTIP;
      ti.hwnd = this->Handle;
      ti.uId = 0;
      ti.hinst = NULL;
      ti.lpszText = "test balloon message";
      ::SetWindowPos(hwndToolTips,
                HWND_TOPMOST,
                0,0,0,0,SWP_NOMOVE | SWP_NOSIZE | SWP_NOACTIVATE);

      ::GetClientRect(this->Handle, &ti.rect);
      SendMessage(hwndToolTips, TTM_ADDTOOL, 1, (LPARAM) &ti );
    }
//    SendMessage(hwndToolTips,TTM_ACTIVATE,(WPARAM)TRUE,0);
    ShowWindow(hwndToolTips,SW_SHOW);
}