Delphi-Quellcode:
procedure TForm1.CreateOTP(OriginalText: string);
var i: integer;
begin
for i := 1 to length(OriginalText) do
begin
Memo3.Text := Memo3.Text + inttostr(random(255));
if (i mod 25 = 0) then
Application.ProcessMessages;
end;
end;
probier mal ob das schneller ist. (ich gehe davon aus dass du einen 200 Byte Langen OriginalText hast, bzw. dieser nicht um größenordnungen Größer ist.