function RandomString(RandomString:Strings;StringLength:Integer):boolean
var
CharSum:String;
Inti :Integer;
begin
CharSum:='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
randomize( );
for Inti:=0 TO StringLength-1 do
begin
//如果要两个字母不相同的话,可以比较一下随机数,这个小问题留给楼主解决
RandomString[Inti]=CharSum[random (strlen(CharSum))];
end;
function RandomString():string;
const str='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var i, i1:integer;
begin
randomize;
i:= random(25);
repeat
i1:= random(25);
until i1<>i;
Result:=str[i]+str[i1];
end;