Verificando se uma string contém um valor numérico válido

{- Use uma das funções abaixo, conforme o tipo de dado que se quer testar:}

function StrIsInteger(const S: string): boolean;
begin
try
StrToInt(S);
Result := true;
except
Result := false;
end;
end;

function StrIsFloat(const S: string): boolean;
begin
try
StrToFloat(S);
Result := true;
except
Result := false;
end;
end;