Shuffle algo

[EWeiss]

Meine Shuffle function

Delphi-Quellcode:

{$REGION 'function ListShuffle'}

function TBassPlayer.ListShuffle(LView: ISkinListView): Integer;
var
  Inx: Integer;
  RandomInx: Integer;
  RandomIndex: Integer;
  ListCount: Integer;
begin
  RandomIndex := 0;
  result := 0;

  ListCount := LView.Count(LView.Handle);

  for Inx := 0 to ListCount - 1 do
  begin
    begin
      RandomInx := Random(ListCount);
      if (RandomInx <> Inx) then
        RandomIndex := RandomInx;
    end;
    if RandomIndex = LView.GetCurSel(LView.Handle) then
      RandomIndex := RandomIndex + 1;

    result := RandomIndex;
  end;
end;
{$ENDREGION}

Wie kann man diesen verbessern so das nicht so oft immer wieder der 1 Listeintrag abgespielt wird?
Heino nervt langsam..

gruss