diff --git a/components/tvplanit/source/vpweekviewpainter.pas b/components/tvplanit/source/vpweekviewpainter.pas
index 94bcf1458..5801e1409 100644
--- a/components/tvplanit/source/vpweekviewpainter.pas
+++ b/components/tvplanit/source/vpweekviewpainter.pas
@@ -387,7 +387,7 @@ begin
       else if (ADayIndex = 5) then
       begin
         DayRect.Top := DayRect.Bottom;
-        DayRect.Bottom := RealTop + FHeaderHeight + DayRectHeight;
+        DayRect.Bottom := RealBottom;
       end else
       begin
         DayRect.Top := DayRect.Bottom;