diff --git a/components/tachart/tagraph.pas b/components/tachart/tagraph.pas
index ad27e98798..ce7bd210be 100644
--- a/components/tachart/tagraph.pas
+++ b/components/tachart/tagraph.pas
@@ -825,7 +825,7 @@ begin
     FClipRect.Bottom -= Bottom;
   end;
 
-  with ClipRect do begin;
+  with ClipRect do begin
     FTitle.Measure(ADrawer, 1, Left, Right, Top);
     FFoot.Measure(ADrawer, -1, Left, Right, Bottom);
   end;
diff --git a/components/tachart/tanavigation.pas b/components/tachart/tanavigation.pas
index 44ad3e1a5a..df05188267 100644
--- a/components/tachart/tanavigation.pas
+++ b/components/tachart/tanavigation.pas
@@ -320,12 +320,10 @@ procedure TChartNavPanel.Paint;
 
   function GraphRect(ARect: TDoubleRect): TRect;
   begin
-    with ARect do begin
-      a := a * FScale + FOffset;
-      b := b * FScale + FOffset;
-      Result := Rect(
-        Round(a.X), Height - Round(b.Y), Round(b.X), Height - Round(a.Y));
-    end;
+    ARect.a := ARect.a * FScale + FOffset;
+    ARect.b := ARect.b * FScale + FOffset;
+    Result := Rect(
+      Round(ARect.a.X), Height - Round(ARect.b.Y), Round(ARect.b.X), Height - Round(ARect.a.Y));
   end;
 
 var