[Asinkrit]

Еще один вариант:

Код:

function GeneratePass(const aLength:byte):String;
const
  CSimbols = 'qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM1234567890';
var
  i: byte;
begin
  Result:='';
  if aLength > 0 then
    begin
    Randomize;
    SetLength(result, aLength);
    for i:=1 to aLength do
      Result[i]:=CSimbols[Random(Length(CSimbols)-1)+1];
    end;
end;

в CSimbols - символы участвующие в генерации
aLength - длина строки на выходе