Vérifier si un string peut être converti en chiffre
function IsStrFloatNum(s:String) : boolean;
begin
try
// try to convert the string into a floatnumber
StrToFloat(s);
// if there is no error the result is true
result := true;
except
// if there is any error the result is false
result := false;
end;
end;