delphi如何判断一个字符串是不是一个Float或integer类型？

var
n : Integer;
f : Double;
......
if TryStrToInt( AString, n ) then ...... // 是整数，且存入了n
if TryStrToFloat( AString, f ) then ......// 是Float，且存入了f

//判断字符串是否是Float
function Isfloat(aVal: string): Boolean;
begin
try
Result:=True;
strtofloat(aVal);
Result:=True;
except
Result:=False;
end;
end;