структура у меня такая для вызова DwmExtendFrameIntoClientArea
margins.cxLeftWidth := 0;
margins.cxRightWidth := 0;
margins.cyBottomHeight := 0;
margins.cyTopHeight := 1; // т.е только верхний оставляю его видно если приглядеться, тогда достаточно отрезка PenColor = BrushColor
в WM_NCPAINT на канве KOLGDI рисовать не хочет, буду пробовать API.