Applies toTESBCustomEdit
Declarationfunction IsClear: Boolean;Implementation
function TESBCustomEdit.IsClear: Boolean; begin Result := (inherited Text = '') or fNull; End;