[[coso]]

Hola, esto tambien te funcionaria :

Código Delphi [-]
function IsNumber(s : string) : boolean;
var
        i : integer;
begin
        result := true;
        for i := 0 to Length(s)-1 do
        result := result and (s[i] in ['0'..'9','+','-','.',',']);
end;