Проблемы возникают, когда вы открываете файл 2 раза. Чтобы этого избежать, пользуйтесь такой конструкцией:

SysFileClose(hFile);(*закрываем для надежности*)
hFile:=SysFileOpen(file_name, 'w');(*и создаем его*)

И поменяйте расширение файла на .log.
Переименовать в .csv можно потом на компьютере.
Удачи!