diff --git a/src/ce_observer.pas b/src/ce_observer.pas
index 78643e31..d7a083e9 100644
--- a/src/ce_observer.pas
+++ b/src/ce_observer.pas
@@ -208,9 +208,6 @@ begin
 end;
 
 function TCEEntitiesConnector.getSingleService(const serviceName: string): TObject;
-var
-  i: Integer;
-  serv: ICESingleService;
 begin
   Result := nil;
   if not fServices.GetValue(serviceName, result) then
diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas
index c4561908..028c56b4 100644
--- a/src/ce_synmemo.pas
+++ b/src/ce_synmemo.pas
@@ -3229,7 +3229,6 @@ var
   curMd5: TMDDigest;
   str: TStringList;
   txt: string;
-  i: integer;
 begin
   if fDiffDialogWillClose or fDisableFileDateCheck then
     exit;
diff --git a/src/ce_term.pas b/src/ce_term.pas
index 3047aec5..4c6df23a 100644
--- a/src/ce_term.pas
+++ b/src/ce_term.pas
@@ -57,7 +57,6 @@ type
   private
     fTerm: TTerminal;
     fOpts: TCETerminalOptions;
-    fFirst: boolean;
     fLastCd: string;
 
     procedure docNew(document: TCESynMemo);