Потяните тематическую границу TEdit

Я хочу потянуть тематическую границу TEdit в Наборе красок. Код должен быть функциональным под Windows Vista и 7. Я попробовал следующее. Это работает только под Windows XP.

var
  Details: TThemedElementDetails;   //uses Themes
begin
  if ThemeServices.ThemesEnabled then
  begin
    Details := ThemeServices.GetElementDetails(teEditRoot);
    ThemeServices.DrawElement(PaintBox1.Canvas.Handle, Details, PaintBox1.ClientRect);
  end;
end;

Под Windows XP весь ist хорошо. Но под Windows Vista и 7 граница красится в темно-сером. Все 4 стороны в том же цвете. Но TEdit в соответствии с Vista выглядит по-другому: верхняя граница имеет темно-серый. Право ограничивает средний серый. У левых и нижних границ есть светло-серый. Я надеюсь, что Вы понимаете различие. Как нарисовать его правильным способом?Спасибо!