Code:

uses CommCtrl;

procedure tNoScrollbarsTreeview.createparams(var params: TCreateParams);

begin

inherited;

params.style := params.style or TVS_NOSCROLL;

end;