RosettaCodeData/Task/Determine-if-a-string-is-numeric/Delphi/determine-if-a-string-is-numeric-1.pas

function IsNumericString(const inStr: string): Boolean;
var
  i: extended;
begin
  Result := TryStrToFloat(inStr,i);
end;