if hTooltip <> 0 then
    begin
       ToolTipData(hTooltip, 1);
       SplitColorARGB(SK_ACTIVECAPTION, Alpha, Red, Green, Blue);
       SendMessage(hTooltip, TTM_SETTIPTEXTCOLOR, RGB(Red, Green, Blue), 0);
       SplitColorARGB(SK_INACTIVECAPTION, Alpha, Red, Green, Blue);
       SendMessage(hTooltip, TTM_SETTIPBKCOLOR, RGB(Red, Green, Blue), 0);
       SendMessage(hTooltip, TTM_SETMAXTIPWIDTH, 0, 400);

       // Addiere den ToolTipText
       ti.cbSize := sizeof(TToolInfo);
       ti.hinst := skInstance;
       ti.uFlags := TTF_IDISHWND or TTF_SUBCLASS;
       ti.hWnd := hParent;
       ti.uId := hObj;
       SendMessage(hTooltip, TTM_ADDTOOL, 0, LParam(@ti));
       SetToolTipText(hObj, Text)
    end;