if not fileexists(trim(edit32.Text)) then  fileclose(filecreate(trim(edit32.Text)));