c'est pas un composant qu'il faut mais une fonction.
type
TCharSet = set of char;
function IsInCharSet(const S : String; const CS : TCharSet) : boolean;
var i : integer;
begin
for i := 1 to length(S) do begin
result := s[i] in CS;
if not result then
exit;
end;
end;
et on l'utilise de cette façon :
if IsInCharset(Texte, ['0'..'9']) then ... else ...
ou encore voir les sources montrant comment limiter la saisie de certains caracteres dans un TEdit.
Croc (click me)