Ahora digo, creo un botón al cual le pongo:
Código Delphi
[-] SaveListViewToFile(ListView1, ExtractFilePath( Application.ExeName ) + 'NombredelArchivo.XXX');
MessageDlg(ExtractFilePath( Application.ExeName ),mtInformation,[mbOK], 0);
entonces, cargo el archivo XML, todo perfecto, entonces digo ya cargue el XML y ahora si apretó el botón, tendría que escribir o reemplazar o crear el archivo
NombredelArchivo.XXX en el directorio del EXE, pero no lo hace, por mas que le indico que tiene que utilizar el
ExtractFilePath( Application.ExeName ), el archivo se crear en el directorio donde esta el XML.