problema con funciones delphi

[xelip]

el problema es que tengo en el codigo de un boton:
if opendialog1.execute then existfile := opendialog1.filename;
y en el otro boton:
if savedialog1.execute then newfile := savedialog1.filename;
copyfile(PChar(existfile),PChar(newfile),False);

el problema es cuando se ejecuta savedialog1.excute, esto provoca que se abra la ventana de save dialog, pero despues de un instante de la ventana abierta, se cierra la apliacion