Подскажите пожалуйста. Как убрать горизонтальную полосу прокрутки в TkolListView. Заранее спасибо.

function WndProcHackListView(Sender: PControl; var Msg: TMsg;
 var Rslt: Integer): Boolean;
var
 Style: Integer;

begin
 Result := False;
 if Msg.message = WM_NCCALCSIZE then
 begin
   Style := GetWindowLong(Sender.Handle, GWL_STYLE);
   if (Style and WS_HSCROLL) <> 0 then
     SetWindowLong(Sender.Handle, GWL_STYLE, Style and not WS_HSCROLL);
   Rslt := 0;
 end;
end;

function NewHackListView(AParent: PControl; Style: TListViewStyle;
 Options: TListViewOptions; ImageListSmall, ImageListNormal,
 ImageListState: PImageList): PControl;
begin
 Result := NewListView(AParent, Style, Options,
   ImageListSmall, ImageListNormal, ImageListState);
 Result.AttachProc(WndProcHackListView);
end;