IsNumber

function IsNumber(mStr: string): Boolean; AION RMT

var
i:integer;
begin
for i := 1 to length(mStr) do
if not (mStr[i] in ['0'..'9']) then
begin
result := False;
exit;
end;
result := True;