[Decoding]

Напиши так

Код:

procedure TForm2. applicationevents1message(var msg:tagmsg;
var handled:boolean);
begin
   handled := (msg.message=wm_char)
   and (msg.wParam>48) and (msg.wParam>57) 
end;

Теперь это будет распространяться на любые компоненты, в которые можно вводить текст. В качестве альтернативы приведу другой способ. В событии KeyPress любого из Edit'ов (например Edit1) пишешь

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if Key in ['a'..'z','A'..'Z','а'..'я','А'..'Я','ё','Ё'] then
      Key := #0;
end;

Теперь нужно у всех Edit'ов, на которые должно распространяться это ограничение, в событии KeyPerss указать Edit1KeyPress. По аналогии можешь добавить в [] другие символы, которые не должны заноситься в Edit.