Bueno ya un amigo me ha dado la solucion pero el caso esta en que este me repite los numeros ejemplo yo le entro el 553 y me genera las posibles combinaciones pero me repite los numeros varias veces.
553
535
553
535
355
355
El codigo es este
Código Delphi
[-]
cadena:=Edit1.Text;
Memo1.Lines.Add(cadena[1]+cadena[2]+cadena[3]);
Memo1.Lines.Add(cadena[1]+cadena[3]+cadena[2]);
Memo1.Lines.Add(cadena[2]+cadena[1]+cadena[3]);
Memo1.Lines.Add(cadena[2]+cadena[3]+cadena[1]);
Memo1.Lines.Add(cadena[3]+cadena[1]+cadena[2]);
Memo1.Lines.Add(cadena[3]+cadena[2]+cadena[1]);
Alguna sugerencia