способ 1 ( style :=   GetWindowLong(HD, GWL_STYLE) xor WS_VSCROLL;
SetwindowLong(HD,GWL_STYLE,  style );
SetWindowPos(HD, HD,wb.left, wb.Top, wb.Width, wb.height,SWP_NOMOVE or SWP_NOSIZE or SWP_NOZORDER or SWP_FRAMECHANGED); )

способ 2 wb.Style:=wb.Style and not WS_VSCROLL;

сп 3 SendMessage(HD,WS_VSCROLL,0,0);

сп 4 SetScrollRange(HD,SB_BOTH,0,0,true);

сп 5 ShowScrollBar(HD,SB_BOTH,false); тот же что и вы дали