Отобразить в Canvas ползунок в зависимости от стиля в Windows

[Гео]

Подскажите как отобразить на Canvas PaintBox'a ползунок от TrackBar, так что бы его внешний вид зависел от стиля темы в Windows?
Я так понимаю, надо проверить ThemeServices.ThemesEnabled, и затем с помощью ThemeServices.DrawElement нарисовать ползунок?
Используется Delphi 2010

[Гео]

Все, разобрался. Теперь мне надо сделать так что бы можно было ползунки двигать

[zvygin1964]

Ну... Сам разобрался, покажи другому.

[Гео]

Для отображения ползунка в текущем стиле винды в событие OnPaint PaintBox'a:

...
var Details:TThemedElementDetails;
    MyRect:TRect;
begin
If Themes.ThemeServices.ThemesEnabled then begin
    MyRect.Left:=X1; MyRect.Right:=X2; MyRect.Top:=Y1; MyRect.Bottom:=Y2;
    Details:=ThemeServices.GetElementDetails(ttbThumbBottomNormal);
    ThemeServices.DrawElement(PaintBox1.Canvas.Handle, Details, MyRect);
...

Подключить надо модуль Themes