Applies toTESBCustomEdit
Declarationprocedure CutToClipboard; Implementation
procedure TESBCustomEdit.CutToClipboard; begin if not fReadOnly then begin inherited; end; End;