diff --git a/lcl/controls.pp b/lcl/controls.pp
index befe24cf74..18800f1ddf 100644
--- a/lcl/controls.pp
+++ b/lcl/controls.pp
@@ -3235,7 +3235,10 @@ end;
 
 function TControlBorderSpacing.IsInnerBorderStored: boolean;
 begin
-  Result:=Control.IsBorderSpacingInnerBorderStored;
+  if Control <> nil then
+    Result:=Control.IsBorderSpacingInnerBorderStored
+  else
+    Result:=True;
 end;
 
 function TControlBorderSpacing.IsLeftStored: boolean;
@@ -3402,7 +3405,8 @@ end;
 
 procedure TControlBorderSpacing.Change(InnerSpaceChanged: Boolean);
 begin
-  FControl.DoBorderSpacingChange(Self,InnerSpaceChanged);
+  if FControl <> nil then
+    FControl.DoBorderSpacingChange(Self,InnerSpaceChanged);
   if Assigned(OnChange) then OnChange(Self);
 end;