請問怎樣可Generate 一個 介於 0-9999 的 Random 數 ?

var i: Integer; begin Randomize; i := Trunc(Random(10000)); end;

function Random [ ( Range: Integer) ]; Description Random returns a random number within the range 0 <= X < Range. If Range is not specified, the result is a real-type random number within the range 0 <= X < 1. 即是說要一個 0..9999 的亂數 只要 MyNumber := Random[10000]; 就可以了!!!!!!!!!!!!!!!!!

function RandomRange(const AFrom, ATo: Integer): Integer;
begin
  if AFrom > ATo then
    Result := Random(AFrom - ATo)   ATo
  else
    Result := Random(ATo - AFrom)   AFrom;
end;