UnSort StringList

[MAXIUM]

Solucionado... Acabo de descubrir la función Exchange()

Código Delphi [-]
Var
   ListaA: TStringList;
   Desde: Integer;
begin
     ListaA:= TStringList.Create;

     For Desde:= 0 to 9 Do
         ListaA.Add(IntToStr(Desde));

     For Desde:= 0 to 9 Do
         ListaA.Exchange(Desde, Random(Desde));

     ListaA.Free;
end;