delphi 自定义位数0123456789 组合随机数

function RandNum(n:integer) :string;

var

    SourceStr,str:string;

    i:integer;

begin

    SourceStr:='0123456789';

    randomize;

    for i:=1 to n do

      str:=str+sourcestr[Random(9)+1];

    Result:=str;

end;