IsNumeric 数値かどうか

IsNumeric は指定された文字列が数値に変換可能かどうかを返します。
Delphi にはこれに代わる関数がないようです。
以下のサンプルは Val関数を使って IsNumeric関数を実現しています。

■　Val関数の使用例 
procedure TForm1.Button1Click(Sender: TObject);

  function IsNumeric(S : string) : boolean;
  var
    E : integer;
    R : integer;
  begin
    Val(S, R, E);
    Result  :=  (E = 0);
  end;

var
  S : string;
begin
  S :=  '15';
  if  IsNumeric(S)  then  begin
    ShowMessage('Is Numeric');
  end else begin
    ShowMessage('Not Numeric');
  end;

  S :=  'A5';
  if  IsNumeric(S)  then  begin
    ShowMessage('Is Numeric');
  end else begin
    ShowMessage('Not Numeric');
  end;
end;