diff --git a/lcl/interfaces/gtk2/gtk2proc.inc b/lcl/interfaces/gtk2/gtk2proc.inc
index d7d9bde965..522b2b8681 100644
--- a/lcl/interfaces/gtk2/gtk2proc.inc
+++ b/lcl/interfaces/gtk2/gtk2proc.inc
@@ -1961,6 +1961,9 @@ var
     if (AEvent^.keyval > $FF00) and (AEvent^.keyval < $FF20) and
        (AEvent^.keyval <> GDK_KEY_TAB) then
       Result := Chr(AEvent^.keyval xor $FF00)
+    else
+      if (AEvent^.keyval > $60) and (AEvent^.keyval < $7B) then
+        Result := Chr(AEvent^.keyval - $60) //^A .. ^Z
     else
       Result := #0;
   end;