Mélanger une listbox

Lut tout le monde
Alors voilà, j'ai une listbox contenant plusieurs lignes, et je voudrais savoir comment est-il possible de mélanger la listbox.
Exemple:
j'ai 5 lignes:

var1
var2
var3
var4
var5

je voudrais que lorsque l'on clique sur un bouton ca donne une liste aléatoire du genre:

var3
var5
var1
var4
var2

Merci de votre aide !

var
list:TStringList;
x:Integer;
begin
list:=TStringList.Create;
try
list.AddStrings(ListBox1.Items);

for x:=1 to list.Count-1 do
list.Exchange(x,(random(list.Count)));

ListBox1.Items:=list;
finally
begin
list.Clear;list.Free;
end;
end;
end;

yve