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;