-----------------------------------------------------------------
рrocedure CMEditClear(var Msg: TMessage Msg); virtual cm_First + cm_EditClear;
Автоматически отвечает на выбор в меню идентификатором меню для cm_EditClear, вызывая метод Clear.
См. также: TStatic.Clear.