diff --git a/.gitattributes b/.gitattributes
index bd23ec7c29..c92298cd90 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -2189,7 +2189,7 @@ lcl/interfaces/qt/qtcallback.inc svneol=native#text/pascal
 lcl/interfaces/qt/qtint.pp svneol=native#text/pascal
 lcl/interfaces/qt/qtlclintf.inc svneol=native#text/pascal
 lcl/interfaces/qt/qtlclintfh.inc svneol=native#text/pascal
-lcl/interfaces/qt/qtmemostr.inc svneol=native#text/plain
+lcl/interfaces/qt/qtmemostrings.inc svneol=native#text/plain
 lcl/interfaces/qt/qtobject.inc svneol=native#text/pascal
 lcl/interfaces/qt/qtprivate.pp svneol=native#text/plain
 lcl/interfaces/qt/qtwinapi.inc svneol=native#text/pascal
diff --git a/lcl/interfaces/qt/qtmemostr.inc b/lcl/interfaces/qt/qtmemostrings.inc
similarity index 98%
rename from lcl/interfaces/qt/qtmemostr.inc
rename to lcl/interfaces/qt/qtmemostrings.inc
index cf70c73496..5db4ac899f 100644
--- a/lcl/interfaces/qt/qtmemostr.inc
+++ b/lcl/interfaces/qt/qtmemostrings.inc
@@ -186,13 +186,8 @@ end;
 function TQtMemoStrings.TextChangedHandler(Sender: QObjectH; Event: QEventH): Boolean; cdecl;
 var
   Mess: TLMessage;
-  // just for debugging
-  SenderView: QObjectH;
-  EventView: QEventH;
 begin
   if not FUpdating then begin
-    SenderView := Sender;
-    EventView := Event;
     FTextChanged := True;
     FillChar(Mess, SizeOf(Mess), #0);
     Mess.Msg := CM_TEXTCHANGED;
diff --git a/lcl/interfaces/qt/qtwinapi.inc b/lcl/interfaces/qt/qtwinapi.inc
index 76a335b3bd..8baea50871 100644
--- a/lcl/interfaces/qt/qtwinapi.inc
+++ b/lcl/interfaces/qt/qtwinapi.inc
@@ -430,8 +430,6 @@ end;
 
  ------------------------------------------------------------------------------}
 function TQtWidgetSet.GetSystemMetrics(nIndex: Integer): Integer;
-var
-  P : Pointer;
 begin
   Assert(False, Format('Trace:> [TGtkWidgetSet.GetSystemMetrics] %d', [nIndex]));
   case nIndex of