diff --git a/lcl/themes.pas b/lcl/themes.pas
index 8f051056ee..c7d7d964db 100644
--- a/lcl/themes.pas
+++ b/lcl/themes.pas
@@ -2212,7 +2212,7 @@ begin
     teTab:
       begin
         if Details.Part in [TABP_PANE, TABP_BODY] then
-          FillWithColor(ARect, clBackground);
+          FillWithColor(ARect, clBtnFace{clBackground});
       end;
     teTreeView:
       begin