{自定义产生随机字符串函数}
function GetRandomName:string;
var
SourceStr,Str:String;
i:integer;
begin
SourceStr:='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';
for i:=1 to 16 do Str:=Str+SourceStr[Random(51)+1];
Result:=Str;
end;