diff --git a/etc/terminal/terminalctrls.pas b/etc/terminal/terminalctrls.pas
index fd74d24f..43937a07 100644
--- a/etc/terminal/terminalctrls.pas
+++ b/etc/terminal/terminalctrls.pas
@@ -606,8 +606,8 @@ end;
 
 procedure TTerminal.setSelectedColor(value: TColor);
 {$ifdef hasgtk2term}
-var
-  c: TGDKColor;
+//var
+  //c: TGDKColor;
 {$endif}
 begin
   fSelectedColor:=value;
diff --git a/src/u_dastworx.pas b/src/u_dastworx.pas
index 434dad13..61cd7ed3 100644
--- a/src/u_dastworx.pas
+++ b/src/u_dastworx.pas
@@ -5,7 +5,7 @@ interface
 
 uses
   Classes, SysUtils, process, jsonscanner, fpjson, jsonparser,
-  u_common, u_dialogs;
+  u_common;
 
 (**
  * Gets the module name and the imports of the source code located in
diff --git a/src/u_profileviewer.pas b/src/u_profileviewer.pas
index ec1d3c55..11bfde5b 100644
--- a/src/u_profileviewer.pas
+++ b/src/u_profileviewer.pas
@@ -369,7 +369,6 @@ procedure TProfileViewerWidget.updateFromFile(const fname: string);
 var
   log: string;
   rng: TStringRange = (ptr:nil; pos:0; len: 0);
-  tps: qword;
   idt: string;
   fnc: qword;
   fft: qword;
@@ -460,7 +459,6 @@ begin
   if rng.empty then
     exit;
   idt := rng.nextWord;
-  tps := StrToQWordDef(idt, 0);
 
   // columns headers
   if rng.popLine^.empty then
diff --git a/src/u_tools.pas b/src/u_tools.pas
index 618f8a56..3d4a9d78 100644
--- a/src/u_tools.pas
+++ b/src/u_tools.pas
@@ -87,7 +87,6 @@ type
   TTools = class(TWritableLfmTextComponent, IEditableShortCut, IDocumentObserver, IProjectObserver, IFPObserver)
   private
     fTools: TToolItems;
-    fShctCount: Integer;
     fDoc: TDexedMemo;
     fMenu: TMenuItem;
     fReadOnly: boolean;