diff --git a/lcl/include/customcheckbox.inc b/lcl/include/customcheckbox.inc
index c4782bd4c4..7fa1af3f89 100644
--- a/lcl/include/customcheckbox.inc
+++ b/lcl/include/customcheckbox.inc
@@ -193,9 +193,11 @@ end;
 
 procedure TCustomCheckBox.Loaded;
 begin
-  // set first the loaded FState, otherwise the inherited Loaded will load the
-  // the interface state
-  TWSCustomCheckBoxClass(WidgetSetClass).SetState(Self, FState);
+  // Send first the FState to the interface before calling inherited,
+  // otherwise the FState will be lost and the default interface State is taken.
+  // TODO: MWE, remove this, it should be handled by InitializeWnd
+  if HandleAllocated
+  then TWSCustomCheckBoxClass(WidgetSetClass).SetState(Self, FState);
   inherited Loaded;
 end;
 
@@ -227,6 +229,9 @@ end;
 
 {
   $Log$
+  Revision 1.30  2005/01/13 23:37:33  marc
+  * Fixed and clearified loaded
+
   Revision 1.29  2005/01/11 13:25:23  vincents
   TCustomCheckBox.AllowGray defaults to false.