var
    SourceStr,str:string;
    i:integer;
begin
   
            SourceStr:='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789';
   
            randomize;
    for i:=1 to 16 do
     
            str:=str+sourcestr[Random(62)+1];
    ShowMessage(str);
end;
            [注:生成長(zhǎng)度為16位數(shù),取值范圍為'A-Z'a-z''0-9'的隨機(jī)數(shù)]