delphi 自定义位数随机数字

function randomStr(aLen: integer=10): string;

var

    i: Integer;

begin

    randomize;

    result:='';

    if aLen>0 then

    for i:=0 to aLen-1 do

        result:=result+chr(65+random(25));

end;