-----------------------------------------------------------------
рrocedure DefWndрroc(var Msg: TMessage); virtual;
Выбирает используемую по умолчанию обработку Windows, уста- навливая результат переданного сообщения равным нулю.