Zufall generieren dauert lange

[nailor]

Delphi-Quellcode:

procedure TForm1.CreateOTP(OriginalText: string);
var i: integer; temp: string;
begin
temp = '';
  for i := 1 to length(OriginalText) do
  begin
    temp := temp + inttostr(random(255));
  end;
Memo3.Text := temp;
end;

guckst du da^^