diff --git a/lcl/include/control.inc b/lcl/include/control.inc
index 0061f7a39c..8bd1e70489 100644
--- a/lcl/include/control.inc
+++ b/lcl/include/control.inc
@@ -193,7 +193,6 @@ end;
 
 procedure TLazAccessibleObject.ClearChildAccessibleObjects;
 var
-  i: Integer;
   lXObject: TLazAccessibleObject;
   AVLNode: TAvgLvlTreeNode;
 begin
@@ -213,7 +212,6 @@ end;
 procedure TLazAccessibleObject.RemoveChildAccessibleObject(
   AObject: TLazAccessibleObject; AFreeObject: Boolean = True);
 var
-  lIndex: Integer;
   Node: TAvgLvlTreeNode;
 begin
   if FChildrenSortedForDataObject = nil then Exit;
@@ -227,8 +225,6 @@ end;
 function TLazAccessibleObject.GetChildAccessibleObjectWithDataObject(
   ADataObject: TObject): TLazAccessibleObject;
 var
-  i: Integer;
-  lCurObject: TLazAccessibleObject;
   Node: TAvgLvlTreeNode;
 begin
   Result := nil;
diff --git a/lcl/include/imglist.inc b/lcl/include/imglist.inc
index 462639745a..f9defb426c 100644
--- a/lcl/include/imglist.inc
+++ b/lcl/include/imglist.inc
@@ -778,7 +778,6 @@ procedure TCustomImageList.InsertMasked(Index: Integer; AImage: TCustomBitmap;
 var
   RawImg: TRawImage;
   SourceImage, MaskedImage: TLazIntfImage;
-  Bmp: TBitmap;
 begin
   if AImage = nil then Exit;
   SourceImage := TLazIntfImage.Create(AImage.RawImage, False);