[bellota]

Alto, Alto, Alto!!!!.... alguien acaba de consultar lo mismo que yo y ya dió la solución

Código Delphi [-]
procedure KeyPress(Sender: TObject; var Key: Char);
begin
  if not(Key in ['A'..'Z', 'a'..'z', #9, #8]) then
    key := #0;

end;