[DELPHI] Mescolare elementi in un controllo ListBox

[funnylux]

ciao ragazzi grazie per le soluzioni
girando avevo trovato questa bella procedura che va bene per la listbox

procedure ShuffleStrings( sl : TStrings; nIntensity : integer );
var
  n1, n2, n3 : integer;
  s1         : string;
begin
  if(0 = nIntensity)then
  begin
    nIntensity := sl.Count;
  end else
  if(nIntensity > sl.Count)then
  begin
    nIntensity := sl.Count;
  end;

  Randomize;

  for n1 := 1 to nIntensity do
  begin
    n2 := Random( nIntensity );
    n3 := Random( nIntensity );

    s1             := sl.Strings[n3];
    sl.Strings[n3] := sl.Strings[n2];
    sl.Strings[n2] := s1;
  end;
end; 

non mi uccidete adesso ... praticamente ho dovuto lasciare la listbox per una listview quindi dovrei mescolare quest'ultima.. secondo voi adattando questa procedura si può fare?