Diese funktion ist auf für DLL's geeignet.

function IsStrANumber(NumStr : string) : bool;
begin
  result := true;
  try
    strToInt(NumStr);
  except
    result := false;
end;