delphi isNum

function isNum(c: char): Boolean;

begin

    result:=(ord(c)>=48) and (ord(c)<=57);

end;

function isNumeric(const aStr: string): Boolean;

begin

    result:= ( isInt(aStr) or isFloat(aStr) );

end;