diff --git a/lcl/interfaces/wince/winceint.pp b/lcl/interfaces/wince/winceint.pp
index 42c654dfe1..7fa963c74d 100644
--- a/lcl/interfaces/wince/winceint.pp
+++ b/lcl/interfaces/wince/winceint.pp
@@ -215,10 +215,10 @@ type
     property OnAsyncSocketMsg: TSocketEvent read FOnAsyncSocketMsg write FOnAsyncSocketMsg;
 
   public
-  
     { Variables to be set by the user }
+
     WinCETitlePolicy: TWinCETitlePolicy;
-  
+    MaximizedWindowHeightCorrection: Integer;
   end;
 
 {$I wincelistslh.inc}
diff --git a/lcl/interfaces/wince/wincewsforms.pp b/lcl/interfaces/wince/wincewsforms.pp
index 5f62eeb133..15e19bf47f 100644
--- a/lcl/interfaces/wince/wincewsforms.pp
+++ b/lcl/interfaces/wince/wincewsforms.pp
@@ -305,8 +305,9 @@ begin
       begin
         Left := WR.Left;
         Top := WR.Top;
-        Height := WR.Bottom - WR.Top;// - GetSystemMetrics(SM_CYMENU)
-         //- GetSystemMetrics(SM_CXBORDER) * 2;
+        Height := WR.Bottom - WR.Top - WinCEWidgetset.MaximizedWindowHeightCorrection;
+          // - GetSystemMetrics(SM_CYMENU)
+          //- GetSystemMetrics(SM_CXBORDER) * 2;
         Width := WR.Right - WR.Left;
       end
       else if (BorderStyle = bsDialog) then