Suche in ListBox beschleunigen

[rawsoul]

Hab mich ja dafür entschuldigt...

Ich denke, die Prozedur ist ok, aber ich klatsch sie trotzdem mal heir rein

Delphi-Quellcode:

function wortverdrehen(eingabe:string):string;
var
  laenge,k:integer;
  wort:string;
  buchstabe:char;
begin
  result:='';
  wort:=eingabe;
  while length(wort)>0 do
    begin
      laenge:=length(wort);
      k:=random(laenge)+1;
      buchstabe:=wort[k];
      result:=result+buchstabe;
      delete(wort,k,1);
    end;
end;