diff --git a/components/tachart/demo/dragdrop/dragdropdemo.lpi b/components/tachart/demo/dragdrop/dragdropdemo.lpi
index d82e65ca01..212e7bf6f6 100644
--- a/components/tachart/demo/dragdrop/dragdropdemo.lpi
+++ b/components/tachart/demo/dragdrop/dragdropdemo.lpi
@@ -15,7 +15,7 @@
       <ResourceType Value="res"/>
     </General>
     <VersionInfo>
-      <ProjectVersion Value=""/>
+      <StringTable Comments="" CompanyName="" FileDescription="" FileVersion="0.0.0.0" InternalName="" LegalCopyright="" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion=""/>
     </VersionInfo>
     <PublishOptions>
       <Version Value="2"/>
diff --git a/components/tachart/demo/dragdrop/main.lfm b/components/tachart/demo/dragdrop/main.lfm
index fefef034df..a7a998eeaa 100644
--- a/components/tachart/demo/dragdrop/main.lfm
+++ b/components/tachart/demo/dragdrop/main.lfm
@@ -42,7 +42,7 @@ object Form1: TForm1
     OnMouseUp = Chart1MouseUp
     object Chart1LineSeries1: TLineSeries
       Marks.Clipped = False
-      Marks.Format = '%0:g'
+      Marks.Format = '%0:.9g'
       Marks.Style = smsValue
       Pointer.Brush.Color = clPurple
       Pointer.HorizSize = 6
diff --git a/components/tachart/demo/dragdrop/main.pas b/components/tachart/demo/dragdrop/main.pas
index 78c7058b77..0624d2d330 100644
--- a/components/tachart/demo/dragdrop/main.pas
+++ b/components/tachart/demo/dragdrop/main.pas
@@ -48,7 +48,7 @@ procedure TForm1.Chart1LineSeries1GetMark(
   out AFormattedMark: String; AIndex: Integer);
 begin
   if AIndex = FNearestIndex then
-    AFormattedMark := Chart1LineSeries1.DefaultFormattedMark(AIndex)
+    AFormattedMark := Chart1LineSeries1.FormattedMark(AIndex)
   else
     AFormattedMark := '';
 end;
diff --git a/components/tachart/tacustomseries.pas b/components/tachart/tacustomseries.pas
index 74c65b3450..8bdfe17d7a 100644
--- a/components/tachart/tacustomseries.pas
+++ b/components/tachart/tacustomseries.pas
@@ -118,7 +118,7 @@ type
     function Count: Integer; inline;
     procedure Delete(AIndex: Integer); virtual;
     function Extent: TDoubleRect; virtual;
-    function FormattedMark(AIndex: integer): String;
+    function FormattedMark(AIndex: Integer): String;
     function IsEmpty: Boolean; override;
     function ListSource: TListChartSource;
     property Source: TCustomChartSource