[[Lepe]]

En delphi 6 tienes la funcion trystrtoint(cadena:string; valor:integer):Boolean

Código Delphi [-]
  var i:integer;
begin
  if TrystrToInt('123', i) then
     // si es un numero y el valor lo tienes en I
  else 
    // no es un número, en 'i' no sabe dios lo que habrá.

Este otro metodo lo propongo yo para validar cadenas. Lo que hace es eliminar los caracteres que no pertenece al ConjuntoValido

Código Delphi [-]
type TcharSet = set of Char;

function VAlidaCadena(const s : string; ConjuntoValido : TcharSet):string;
var i:integer;
begin
  Result := '';
  if length(s) >= 1 then
  for i:= 0 to length(s) do
    if s[i] in ConjuntoValido then
      Result := REsult +s[i];
end;

//forma de llamarlo:
procedure Mio()
const ChrValidos :Tcharset = ['0'..'9',',']; //solo permito valores numéricos y la coma decimal 
var s:string;
begin
  s:= '21334,00';
  cbotarifas.Text := validacadena(s,chrValidos);

Si validas caracteres sería algo así como chrvalidos:=['a'..'z','A'..'Z','ñ','Ñ']

Saludos y espero te sirva.