diff --git a/components/tachart/tagraph.pas b/components/tachart/tagraph.pas
index 3315188d86..3a2a654be5 100644
--- a/components/tachart/tagraph.pas
+++ b/components/tachart/tagraph.pas
@@ -108,7 +108,7 @@ type
   { TBasicChartToolset }
 
   TBasicChartToolset = class(TComponent)
-  protected
+  public
     function Dispatch(
       AChart: TChart; AEventId: TChartToolEventId;
       AShift: TShiftState; APoint: TPoint): Boolean; virtual; abstract; overload;
@@ -413,7 +413,8 @@ begin
   end;
 end;
 
-procedure RegisterSeriesClass(ASeriesClass: TSeriesClass; const ACaption: string);
+procedure RegisterSeriesClass(
+  ASeriesClass: TSeriesClass; const ACaption: String);
 begin
   if SeriesClassRegistry.IndexOfObject(TObject(ASeriesClass)) < 0 then
     SeriesClassRegistry.AddObject(ACaption, TObject(ASeriesClass));
@@ -1031,11 +1032,8 @@ begin
 end;
 
 procedure TChart.PaintOnCanvas(ACanvas: TCanvas; ARect: TRect);
-var
-  drawer: IChartDrawer;
 begin
-  drawer := TCanvasDrawer.Create(ACanvas);
-  Draw(drawer, ARect);
+  Draw(TCanvasDrawer.Create(ACanvas), ARect);
 end;
 
 procedure TChart.PrepareAxis(ADrawer: IChartDrawer);
diff --git a/components/tachart/tatools.pas b/components/tachart/tatools.pas
index 3f68e1ff25..70353690a7 100644
--- a/components/tachart/tatools.pas
+++ b/components/tachart/tatools.pas
@@ -326,9 +326,9 @@ type
     procedure MouseMove(APoint: TPoint); override;
   published
     property ActiveCursor;
+    property OnHint: TChartToolHintEvent read FOnHint write FOnHint;
     property UseDefaultHintText: Boolean
       read FUseDefaultHintText write FUseDefaultHintText default true;
-    property OnHint: TChartToolHintEvent read FOnHint write FOnHint;
   end;
 
   { TReticuleTool }