problema con funciones delphi

[xelip]

sigo teniendo problemas con las funciones copyfile y movefile, ya revise lo que devuelve la funcion getlasterror, pero el llamado al api esta OK, este es el codigo que tengo:

var ExistFile,NewFile: String;
if opendialog1.execute then ExistFile := opendialog1.filename;
if savadialog1.execute then NewFile := savadialog1.filename;
copyfile(PChar(ExisteFile),PChar(NewFile),False);

cuando ejecuta el primer if todo sigue normal, pero cuando ejecuta el savedialog, entonces se cierra la aplicacion, antes de poder seleccionar el archivo donde voy a guardar.

agradeceria mucho que alguien me ayudara....
gracias