怎么在ScrollBox上面用用画笔？(200分)

我用了皮肤TeThemeEngine，窗体上面画笔就不能用了，现在加了一个ScrollBox，想知道怎么能够在ScrollBox画虚线框，就是为了拖动实现多选文件的那种功能。

帮助上

用 Win32 API 画行不行(不知道那个 skin 到底有多厉害)，例：
procedure TForm1.Button1Click(Sender: TObject);
var
DC: HDC;
Pen: HPEN;
begin
Pen := CreatePen(PS_DOT, 1, clBlue);
DC := GetDC(ScrollBox1.Handle);
Pen := SelectObject(DC, Pen);
Rectangle(DC, 10, 10, 100, 100);
DeleteObject(SelectObject(DC, Pen));
ReleaseDC(ScrollBox1.Handle, DC);
end;

多谢，可以，可以，