diff --git a/components/tachart/demo/func/funcdemo.lpi b/components/tachart/demo/func/funcdemo.lpi
index bac3ab4c71..4bebd415e5 100644
--- a/components/tachart/demo/func/funcdemo.lpi
+++ b/components/tachart/demo/func/funcdemo.lpi
@@ -22,7 +22,7 @@
     <RunParams>
       <local>
         <FormatVersion Value="1"/>
-        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
+        <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
       </local>
     </RunParams>
     <RequiredPackages Count="2">
diff --git a/components/tachart/taseries.pas b/components/tachart/taseries.pas
index 169e8283a7..9b8228815d 100644
--- a/components/tachart/taseries.pas
+++ b/components/tachart/taseries.pas
@@ -29,7 +29,7 @@ unit TASeries;
 interface
 
 uses
-  Classes, Graphics,
+  Classes, Graphics, LCLProc,
   TAChartUtils, TACustomSeries, TAGraph, TALegend, TATypes;
 
 type
@@ -1090,7 +1090,7 @@ end;
 
 procedure TFuncSeries.SetOnCalculate(const AValue: TFuncCalculateEvent);
 begin
-  if FOnCalculate = AValue then exit;
+  if CompareMethods(TMethod(FOnCalculate),TMethod(AValue)) then exit;
   FOnCalculate := AValue;
   UpdateParentChart;
 end;
@@ -1139,7 +1139,7 @@ end;
 
 procedure TUserDrawnSeries.SetOnDraw(AValue: TSeriesDrawEvent);
 begin
-  if FOnDraw = AValue then exit;
+  if CompareMethods(TMethod(FOnDraw),TMethod(AValue)) then exit;
   FOnDraw := AValue;
   UpdateParentChart;
 end;
diff --git a/components/tachart/tasources.pas b/components/tachart/tasources.pas
index 2d4b69d26b..1ea071fae9 100644
--- a/components/tachart/tasources.pas
+++ b/components/tachart/tasources.pas
@@ -22,7 +22,7 @@ unit TASources;
 interface
 
 uses
-  Classes, Graphics, SysUtils, TAChartUtils;
+  Classes, LCLProc, Graphics, SysUtils, TAChartUtils;
 
 type
   EEditableSourceRequired = class(EChartError);
@@ -783,7 +783,7 @@ end;
 procedure TUserDefinedChartSource.SetOnGetChartDataItem(
   const AValue: TGetChartDataItemEvent);
 begin
-  if FOnGetChartDataItem = AValue then exit;
+  if CompareMethods(TMethod(FOnGetChartDataItem),TMethod(AValue)) then exit;
   FOnGetChartDataItem := AValue;
   Reset;
 end;