[gala]

Какой код необходимо написать , чтобы не заносились в Edit текстовые символы.
Почему обработчик события onmessage компонента applicationevents действует на один edit, а их много
код
procedure TForm2. applicationevents1message(var msg:tagmsg;
var handled:boolean);
begin
handled:=edit1.focused and (msg.message=wm_char)
and (msg.wParam>48) and(msg.wParam>57)
end
может какой-нибудь другой код подойдет