ANTICHAT — форум по информационной безопасности, OSINT и технологиям

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

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
      i: byte;
begin
caption:='';
Randomize;
s:='abcd';
for i:=1 to 10 do
 caption:=caption+  s[Random(length(s))+1];
end;

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;

function Rand(const count: Integer; const symbols: string): string;
var
  i: Integer;
begin
  Result := '';
  Randomize;
  for i := 1 to count do
  begin
    Result := Result + symbols[Random(Length(symbols))+1];
    Application.ProcessMessages;
  end;
end;