Здравствуйте, DelphiLexx, Вы писали:

C>>Лучше всего никак.
DL>Почему?
DL>Если действительно никак не получиться, то быть может
DL>можно сделать их плоскими?

Ну если очень хочется — то можно

type  
  TColorScrollBar=class(TScrollBar)   
  private  
   procedure CNCtlColorScrollBar(var Msg:TMessage);message CN_CtlColorScrollBar;   
  published  
   property Color;   
  end;   
    
procedure TColorScrollBar.CNCtlColorScrollBar(var Msg:TMessage);   
begin  
  DefaultHandler(Msg)   
end;

А вот плоские скроллбары — их там есть:
здесь
здесь

Вот только рулить всем этим хозяйством придется самому(т.е. перемещать, реагировать на мышь и клавиатуру и т.п.) Оно тебе надо?