Zahlen 1-4 mischen

[Skyrunner2]

wie kann ich am besten die zahlen von 1 bis 4 mischen?

Delphi-Quellcode:

for i:=0 to 3 do
  liste[i]:=i+1;
  
randomize;
i:=random(3);
j:=random(3);
hlp:=liste[i];
liste[i]:=liste[j];
liste[j]:=hlp;

geht irgent wie nicht...