Function IsInt(Str:String):Boolean;
  var i:integer;
begin
result:=true;
for I := 1 to Length(Str) do
  if not (Str[i] in ['0'..'9']) then
    begin
      result:=false;
      break;
    end;
end;