diff --git a/components/tachart/tadrawerfpvectorial.pas b/components/tachart/tadrawerfpvectorial.pas
index 27ae538c77..e80cf3d702 100644
--- a/components/tachart/tadrawerfpvectorial.pas
+++ b/components/tachart/tadrawerfpvectorial.pas
@@ -331,10 +331,7 @@ begin
 end;
 
 procedure TFPVectorialDrawer.SetFont(AFont: TFPCustomFont);
-var
-  angle: Integer;
 begin
-  angle := AFont.Orientation;
   FFont.Name := AFont.Name;
   FFont.Size := IfThen(AFont.Size = 0, 10, AFont.Size);
   FFont.Color := AFont.FPColor;
diff --git a/components/tachart/tadrawerwmf.pas b/components/tachart/tadrawerwmf.pas
index f7d88ff9c5..4a9dcbc2a9 100644
--- a/components/tachart/tadrawerwmf.pas
+++ b/components/tachart/tadrawerwmf.pas
@@ -346,7 +346,6 @@ procedure TMetafile.CopyToClipboard;
 // http://www.olivierlanglois.net/metafile-clipboard.html
 var
   Format: Word;
-  Data: THandle;
 begin
   if FImageHandle = 0 then exit;
 
@@ -354,7 +353,7 @@ begin
   try
     EmptyClipboard;
     Format := CF_ENHMETAFILE;
-    SetClipboardData(Format, FImageHandle); //Data);
+    SetClipboardData(Format, FImageHandle);
   finally
     CloseClipboard;
   end;