Delphi 随机取汉字

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  s1, s2: WideString;
  iz1, iz2: Integer;
begin
  s1 := '';
  s2 := '';
  Memo1.Lines.Clear;

  for i := 1 to 5000 do
  begin
//    s := char(random(125)+129)+char(random(190)+64);


    Randomize;

    // 汉字区间19968-40896，总数：20928
    iz1 := 19968 + random(20928);
    iz2 := 19968 + random(20928);

    s1 := WideChar(iz1);
    s2 := WideChar(iz2);

    Memo1.Lines.Add(s1 + s2);
  end;

//  Memo1.Lines.Text := s;
end;