[zmicer]

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
with ListBox1 do
  begin
    InitializeFlatSB(Handle);
    FlatSB_EnableScrollBar(Handle,SB_VERT,ESB_ENABLE_BOTH);
    FlatSB_SetScrollRange(Handle,SB_VERT,0,100,False);
    // меняем параметры
    FlatSB_SetScrollProp(Handle,WSB_PROP_VSTYLE,FSB_REGULAR_MODE,False); // плоский
    FlatSB_SetScrollProp(Handle,WSB_PROP_VBKGCOLOR,clGreen,False); // цвет фона
    FlatSB_SetScrollProp(Handle,WSB_PROP_CXVSCROLL,100,False); // ширина
    FlatSB_ShowScrollBar(Handle,SB_VERT,True);
  end;
end;