function Rand(count,symbols: string): string;
var
i,rnd: integer;
begin
Randomize;
  for i:=1 to StrToInt(count) do
    begin
      rnd:=(Random(Length(symbols))+1)*9;
      while rnd>Length(symbols) do rnd-Random(Length(symbols));
      result:=result+symbols[rnd];
      Application.ProcessMessages;
    end;
end;