diff --git a/lcl/forms.pp b/lcl/forms.pp
index fdedf2ab73..14bdf80d17 100644
--- a/lcl/forms.pp
+++ b/lcl/forms.pp
@@ -1402,14 +1402,10 @@ type
     function IsRTLLang(ALang: String): Boolean;
     function Direction(ALang: String): TBiDiMode;
   public
-    procedure DoArrowKey(AControl: TWinControl; var Key: Word;
-      Shift: TShiftState);
-    procedure DoEscapeKey(AControl: TWinControl; var Key: Word;
-      Shift: TShiftState);
-    procedure DoReturnKey(AControl: TWinControl; var Key: Word;
-      Shift: TShiftState);
-    procedure DoTabKey(AControl: TWinControl; var Key: Word;
-      Shift: TShiftState);
+    procedure DoArrowKey(AControl: TWinControl; var Key: Word; Shift: TShiftState);
+    procedure DoEscapeKey(AControl: TWinControl; var Key: Word; Shift: TShiftState);
+    procedure DoReturnKey(AControl: TWinControl; var Key: Word; Shift: TShiftState);
+    procedure DoTabKey(AControl: TWinControl; var Key: Word; Shift: TShiftState);
 
     property Active: boolean read GetActive;
     property ApplicationType : TApplicationType read FApplicationType write FApplicationType;