ListView & Flat Scrollbar

Создаю ListView след. образом. Задаю стиль LVS_EX_FLATSB. Скролбар действительно становится плоским, но он дисабленый, т.е. даже когда есть возможность скролировать он неактивен (disabled). Подскажите в чем проблема.

hFileList := CreateWindowEx(0,WC_LISTVIEW,nil,WS_CHILD or WS_VISIBLE or WS_BORDER or LVS_REPORT or LVS_SHOWSELALWAYS,4,4,100,100,hWnd,IDC_FILELIST,Inst,nil);
SendMessage(hFileList,LVM_SETIMAGELIST,LVSIL_SMALL,hilFileList);
pcol.mask := LVCF_SUBITEM or LVCF_WIDTH or LVCF_TEXT;
pcol.iSubItem := 0;
pcol.cx := 150;
pcol.pszText := 'File';
SendMessage(hFileList,LVM_INSERTCOLUMN,0,Longint(@pcol));
pcol.iSubItem := 1;
pcol.cx := 300;
pcol.pszText := 'Folder';
SendMessage(hFileList,LVM_INSERTCOLUMN,1,Longint(@pcol));
SendMessage(hFileList,LVM_SETEXTENDEDLISTVIEWSTYLE,0,SendMessage(hFileList,LVM_GETEXTENDEDLISTVIEWSTYLE,0,0) or LVS_EX_FLATSB or LVS_EX_INFOTIP or LVS_EX_HEADERDRAGDROP);