cleanup and address a few warnings

src/u_ceproject.pas

@@ -597,7 +597,7 @@ var
         exit;
     // TODO-cimprovement: use commonFolder() when it'll be compat. with the rel. paths.
     // hint for the common dir
-    dirHint := fSrcs[i];
+    dirHint := fSrcs[fSrcs.Count-1];
     while (dirHint[1] = '.') or (dirHint[1] = DirectorySeparator) do
         dirHint := dirHint[2..dirHint.length];
     ini := fFilename.extractFilePath;
@@ -1174,17 +1174,12 @@ begin
 end;
 
 procedure setCEProjectCompiler(value: DCompiler);
-var
-  sel: ICompilerSelector;
 begin
-  sel := getCompilerSelector;
   if value = gdc then
     value := gdmd
   else if value = ldc then
     value := ldmd;
   CEProjectCompiler := value;
-  //if not sel.isCompilerValid(CEProjectCompiler) then
-  //  CEProjectCompiler := dmd;
 end;
 
 initialization

src/u_projinspect.pas

@@ -639,16 +639,12 @@ end;
 
 procedure TProjectInspectWidget.updateImperative;
 var
-  conf: string;
   itm: TTreeNode;
   chd: TTreeNode;
   i,j: integer;
-  sel: string = '';
   fld: string;
   rng: TStringRange = (ptr:nil; pos:0; len:0);
 begin
-  if Tree.Selected.isAssigned then
-    sel := Tree.Selected.GetTextPath;
   fFileNode.DeleteChildren;
 
   if fProj.isNotAssigned then

src/u_synmemo.pas

@@ -10,7 +10,7 @@ uses
   SynHighlighterLFM, SynEditHighlighter, SynEditMouseCmds, SynEditFoldedView,
   SynEditMarks, SynEditTypes, SynHighlighterJScript, SynBeautifier, dialogs,
   md5, Spin, LCLIntf, LazFileUtils, LMessages, SynHighlighterCpp, math,
-  SynGutterMarks, SynGutterBase, LCLVersion,
+  SynGutterBase, LCLVersion,
   //SynEditMarkupFoldColoring,
   Clipbrd, fpjson, jsonparser, LazUTF8, LazUTF8Classes, Buttons, StdCtrls,
   u_common, u_writableComponent, u_d2syn, u_txtsyn, u_dialogs,
@@ -2882,7 +2882,6 @@ procedure TDexedMemo.getCompletionList;
 var
   i: integer;
   o: TObject;
-  s: string;
   w: string;
   r: TStringRange = (ptr:nil; pos:0; len: 0);
   h: TStringHashSet;