取得任意位的随机数

function TForm1.RandomStr(UP: boolean; Low: boolean; Number: boolean; Digit: integer):string;
//--大写字母,小写字母,数字,字符串的位数
var
  i: Byte;
  s: string;
begin
  if UP then
    s := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
  else
    s := '';

  if Low then
    s := s + 'abcdefghijklmnopqrstuvwxyz';

  if Number then
    s := s + '0123456789';
  if s = '' then exit;

  Result := '';
  for i := 0 to Digit - 1 do //--根据长度来循环
  begin
    Randomize;//--每次都初始化随机种子
    Result := Result + s[Random(Length(s)-1) + 1];
    Sleep(10);// --这里一定要加上，要不然会得到重复的数据 大小随意
  end;
end;