diff --git a/components/nicechart/source/NiceChart.pas b/components/nicechart/source/NiceChart.pas
index 6a26f6a7c..07462f372 100644
--- a/components/nicechart/source/NiceChart.pas
+++ b/components/nicechart/source/NiceChart.pas
@@ -829,13 +829,20 @@ begin
 end;
 
 procedure RotTextOut(ACanvas: TCanvas; x, y, Angle: Integer; Txt: String);
+{$IFNDEF FPC}
 var
   RotFont, OldFont: Integer;
   FBold, FItalic, FUnderline, FStrikeOut: integer;
+{$ENDIF}
 begin
   if (Txt = '')
     then Exit;
   SetBkMode(ACanvas.Handle, TRANSPARENT);
+  {$IFDEF FPC}
+  ACanvas.Font.Orientation := Angle * 10;
+  ACanvas.TextOut(x, y, Txt);
+  ACanvas.Font.Orientation := 0;
+  {$ELSE}
   if (fsItalic in ACanvas.Font.Style)
     then FItalic := 1
     else FItalic := 0;
@@ -855,6 +862,7 @@ begin
   TextOut(ACanvas.Handle, x, y, PChar(Txt), Length(Txt));
   SelectObject(ACanvas.Handle, OldFont);
   DeleteObject(RotFont);
+  {$ENDIF}
 end;
 
 procedure TNiceChart.InternalPaint(ACanvas: TCanvas);