diff --git a/ide/customformeditor.pp b/ide/customformeditor.pp index 5d7ac1c822..db1b3bc833 100644 --- a/ide/customformeditor.pp +++ b/ide/customformeditor.pp @@ -1584,9 +1584,11 @@ begin DefinePropertiesReader); except on E: Exception do begin - debugln('TCustomFormEditor.GetDefineProperties Error calling DefineProperties for ', - CacheItem.RegisteredComponent.ComponentClass.Classname, - ': ',E.Message); + DbgOut('TCustomFormEditor.GetDefineProperties Error calling DefineProperties for '); + if (CacheItem.RegisteredComponent<>nil) then begin + DbgOut(CacheItem.RegisteredComponent.ComponentClass.Classname); + end; + DebugLn(' : ',E.Message); end; end; // free component