remove warnings

lazpaint/lazpaintmainform.pas

@@ -2628,7 +2628,6 @@ end;
 function TFMain.ScriptChooseTool(AVars: TVariableSet): TScriptResult;
 var toolName: string;
   Tool: TPaintToolType;
-  LayerAction: TLayerAction;
   topmostInfo: TTopMostInfo;
   useSelection: boolean;
   newTexture: TBGRABitmap;

lazpaint/uimage.pas

@@ -112,9 +112,9 @@ type
     procedure UpdateTiffFileUTF8(AFilename: string; AOutputFilename: string = '');
     procedure UpdateGifFileUTF8(AFilename: string; AOutputFilename: string = '');
     procedure ReplaceCurrentSelectionWithoutUndo(const AValue: TBGRABitmap);
-    procedure LayerActionNotifyChange(ASender: TObject; ALayer: TBGRABitmap; ARect: TRect);
+    procedure LayerActionNotifyChange({%H-}ASender: TObject; ALayer: TBGRABitmap; ARect: TRect);
     procedure LayerActionDestroy(Sender: TObject);
-    procedure LayerActionNotifyUndo(ASender: TObject; AUndo: TCustomImageDifference; var Owned: boolean);
+    procedure LayerActionNotifyUndo({%H-}ASender: TObject; AUndo: TCustomImageDifference; var Owned: boolean);
   public
     OnException: TImageExceptionHandler;
     ImageOffset: TPoint;

lazpaint/ulayeraction.pas

@@ -97,7 +97,7 @@ type
 
 implementation
 
-uses UResourceStrings, UGraph, Types, Dialogs, BGRATransform, BGRALayerOriginal, UImageDiff;
+uses UGraph, Types, Dialogs, BGRATransform, BGRALayerOriginal, UImageDiff;
 
 { TLayerAction }
 

lazpaint/utoollayer.pas

@@ -168,7 +168,6 @@ end;
 function TToolRotateLayer.DoToolMove(toolDest: TBGRABitmap; pt: TPoint;
   ptF: TPointF): TRect;
 var angleDiff: single;
-  ofs: TPoint;
 begin
   with Manager.Image.LayerOffset[Manager.Image.CurrentLayerIndex] do
     ptF += PointF(X,Y);