cleanup

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

src/ce_synmemo.pas

@@ -3229,7 +3229,6 @@ var
   curMd5: TMDDigest;
   str: TStringList;
   txt: string;
-  i: integer;
 begin
   if fDiffDialogWillClose or fDisableFileDateCheck then
     exit;

src/ce_term.pas

@@ -57,7 +57,6 @@ type
   private
     fTerm: TTerminal;
     fOpts: TCETerminalOptions;
-    fFirst: boolean;
     fLastCd: string;
 
     procedure docNew(document: TCESynMemo);