[[cHackAll]]

Creo qe lo que quiso decir droguerman era:

Código Delphi [-]
if OpenDialog1.execute then AssignFile(Origen, OpenDialog1.FileName);
if SaveDialog1.execute then AssignFile(Destino, SaveDialog1.FileName);