ciao

per effettuare un controllle del genere io agisco sull'evento keypress del tedit, evito di dare la possibilita all'utente di inserire caratteri sbagliati:

codice:
procedure TFrameAnagraficaCliente.cxButtonEdit1KeyPress(Sender: TObject;
  var Key: Char);
begin
if not(Key in ['0'..'9']) then Key := #0;
end;
con questo controllo si possono inserire solo valori quali 0,1,2,3,4,5,6,7,8,9

nel caso tuo, invece, vuoi effettuare i controlli dopo che l'utente ha gia inserito tutti i caratteri che desiderava....

in questo caso devi usare delle apposite funzioni per la manipolazione delle stringhe

http://www.delphibasics.co.uk/ByFunc...p?Main=Strings


o semmai potresti scrivere una funzione adatta a te...
http://forums.fanatic.net.nz/lofiver...php/t8626.html

ciao