diff --git a/components/tvplanit/laz_visualplanit.lpk b/components/tvplanit/laz_visualplanit.lpk
index 1dfc3a910..8beaa8ff0 100644
--- a/components/tvplanit/laz_visualplanit.lpk
+++ b/components/tvplanit/laz_visualplanit.lpk
@@ -32,7 +32,7 @@ Portions created by TurboPower Software Inc. are Copyright (C) 2002 TurboPower S
 
 Contributor(s): "/>
     <Version Major="1" Minor="7"/>
-    <Files Count="69">
+    <Files Count="68">
       <Item1>
         <Filename Value="source\vpbase.pas"/>
         <UnitName Value="VpBase"/>
@@ -302,13 +302,9 @@ Contributor(s): "/>
         <UnitName Value="VpGanttView"/>
       </Item67>
       <Item68>
-        <Filename Value="source\vpganttview.pas"/>
-        <UnitName Value="VpGanttView"/>
-      </Item68>
-      <Item69>
         <Filename Value="source\vpganttviewpainter.pas"/>
         <UnitName Value="VpGanttViewPainter"/>
-      </Item69>
+      </Item68>
     </Files>
     <CompatibilityMode Value="True"/>
     <i18n>
diff --git a/components/tvplanit/source/vpganttviewpainter.pas b/components/tvplanit/source/vpganttviewpainter.pas
index bcf1a78ce..c2b3024c8 100644
--- a/components/tvplanit/source/vpganttviewpainter.pas
+++ b/components/tvplanit/source/vpganttviewpainter.pas
@@ -305,7 +305,7 @@ begin
     event := eventRec.Event;
     if event.EndTime < FGanttView.FirstDate then
       Continue;
-    if event.StartTime > FGanttView.LastDate then
+    if event.StartTime > FGanttView.LastDate + 1then
       exit;
     R := ScaleRect(eventRec.EventRect);
     OffsetRect(R, -dx, -dy);