[[poliburro]]

Utiliza esto

Código Delphi [-]
 
procedure TFrmformulario.EditKeyPress(Sender: TObject;
  var Key: Char);
begin
  If Ord(Key) In [60..64,91..94,123..192, 194..200,202..204,
                  206..208,210,212..217,219..224, 226..232,
                  234..236, 238..240,242,244..249, 251..255] Then
    Key := #0
end;