IsFloat, IsInteger
function IsInteger(S: String): Boolean; begin try Result := True; StrToInt(S); except on E: EConvertError do Result := False; end; end; function IsFloat(S: String): Boolean; begin try Result := True; StrToFloat(S); except on E: EConvertError do Result := False; end; end;