在Delphi中检查值是否为日期/数字的正确方法是什么

我知道其他语言有像isDate和isNaN这样的函数,但Delphi的等价物是什么？在我有这个的那一刻

function isNumeric(s1:string):@R_772_8487@an;
begin   
   // will throw exception if its not a number
  // there must be a better way to do this!!
  try
     StrTofloat(s1);
       result :=  TRUE ;
     except
       result := falSE;
      end;
end;

但抛出异常不能很好,而且每次调用代码时我都会看到异常对话,这会使调试变得困难.