TStrings-Elemente zufällig anordnen

[DevilsCamp]

Ich habe z.Z. folgenden Code um die Strings einer Listbox zufällig anzuordnen:

Delphi-Quellcode:

procedure TForm1.StringListZufall;
var
  randomliste : TStringList;
  i           : Integer;
  j           : Integer;
begin
  randomliste := TStringList.Create;

  while (ListBox1.Items.Count>0) do
  begin
    i := Random(ListBox1.Items.Count);
    randomliste.Add(ListBox1.Items[i]);
    ListBox1.Items.Delete(i);
  end;

  ListBox1.Items.Assign(randomliste);

  randomliste.Free;
end;

Doch leider werden die Items oft kaum durcheinander gewürfelt...

Gibt es vielleicht eine bessere Lösung?