diff --git a/components/tvplanit/source/vpclock.pas b/components/tvplanit/source/vpclock.pas
index e9f58905e..3d7ec1f94 100644
--- a/components/tvplanit/source/vpclock.pas
+++ b/components/tvplanit/source/vpclock.pas
@@ -939,7 +939,10 @@ var
 
 begin
   with ckDraw.Canvas do begin
-    Brush.Color := Color;
+    if Color = clDefault then
+      Brush.Color := GetDefaultColor(dctBrush)
+    else
+      Brush.Color := Color;
     Pen.Color := FHandOptions.HourHandColor;
     Pen.Width := 1;
     FillRect(ClientRect);