destructor TCustomRxDateEdit.Destroy;begin if Assigned(FPopup) then begin FPopup.OnCloseUp := nil; FreeAndNil(FPopup); end; TStringList(FCalendarHints).OnChange := nil; <----- debug stop FreeAndNil(FCalendarHints); inherited Destroy;end;