delphi中输入框不能输入初数字意外的字符串的函数（IsNumeric）

今天在改公司以前一个软件，代码中有一个地方需要判断一个字符串存储的是不是一个数字，自然让我想起VB的IsNumeric函数。 由于是Delphi,所以只有另外“打造”了。。

小函数贴上： 

function IsNumeric(strInPut:string):Boolean;
var
    Value:Double;
    Code:Integer;
begin
    Val(strInPut,Value,Code);
    result:=Code=0;
end;