diff --git a/src/u_dcd.pas b/src/u_dcd.pas
index 70d372b3..3208f322 100644
--- a/src/u_dcd.pas
+++ b/src/u_dcd.pas
@@ -100,7 +100,6 @@ constructor TDcdWrapper.create(aOwner: TComponent);
 var
   fname: string;
   i: integer = 0;
-  r: TSemVer;
 begin
   inherited;
 
diff --git a/src/u_synmemo.pas b/src/u_synmemo.pas
index 4040d703..96080441 100644
--- a/src/u_synmemo.pas
+++ b/src/u_synmemo.pas
@@ -9,7 +9,7 @@ uses
   SynEdit, SynPluginSyncroEdit, SynCompletion, SynEditKeyCmds, LazSynEditText,
   SynHighlighterLFM, SynEditHighlighter, SynEditMouseCmds, SynEditFoldedView,
   SynEditMarks, SynEditTypes, SynHighlighterJScript, SynBeautifier, dialogs,
-  md5, Spin, LCLIntf, LazFileUtils, LMessages, SynHighlighterCpp, math,
+  md5, Spin, LCLIntf, LazFileUtils, LMessages, SynHighlighterCpp,
   SynGutterBase, LCLVersion, SynEditMiscProcs,
   Clipbrd, fpjson, jsonparser, LazUTF8, Buttons, StdCtrls,
   u_common, u_writableComponent, u_d2syn, u_txtsyn, u_dialogs, u_sxsyn,
@@ -2146,10 +2146,9 @@ end;
 
 procedure TDexedMemo.centerCursor();
 var
-  Y, LinesInWin, CurTopLine, NewTopLine: Integer;
+  Y, LinesInWin, NewTopLine: Integer;
 begin
   LinesInWin := LinesInWindow;
-  CurTopLine := TopView;
   Y := ToPos(TextView.TextToViewIndex(ToIdx(CaretY)));
   NewTopLine := Max(1, Y - (LinesInWin div 2));
   if NewTopLine < 1 then NewTopLine := 1;
diff --git a/src/u_todolist.lfm b/src/u_todolist.lfm
index 27e936b7..171d0516 100644
--- a/src/u_todolist.lfm
+++ b/src/u_todolist.lfm
@@ -18,31 +18,31 @@ inherited TodoListWidget: TTodoListWidget
       Width = 576
       Align = alClient
       BorderSpacing.Around = 4
-      Columns = <        
+      Columns = <      
         item
           AutoSize = True
           Caption = 'text'
           Width = 36
-        end        
+        end      
         item
           AutoSize = True
           Caption = 'category'
           Width = 67
-        end        
+        end      
         item
           AutoSize = True
           Caption = 'assignee'
           Width = 68
-        end        
+        end      
         item
           AutoSize = True
           Caption = 'status'
-        end        
+        end      
         item
           AutoSize = True
           Caption = 'priority'
           Width = 57
-        end        
+        end      
         item
           AutoSize = True
           Caption = 'file'
@@ -55,6 +55,7 @@ inherited TodoListWidget: TTodoListWidget
     end
   end
   inherited toolbar: TDexedToolBar
+    Height = 30
     Width = 576
     OnResize = toolbarResize
     object btnGo: TDexedToolButton[0]