Fórum Mensagem de erro ao salvar arquivo texto #244078

Caros amigos,
sou iniciante na utilização do Delphi e como todos sabem, quando algumas mensagens de erro aparecem a mente trava mesmo.
No programa que estou fazendo existe uma rotina que salva um arquivo texto e estou utilizando o seguinte código:

procedure Tfrm_makeftp.but_gerascriptClick(Sender: TObject);
var
arq: TextFile;
begin
...
if SaveDialog1.Execute then
begin
AssignFile(arq, SaveDialog1.FileName);
Rewrite(arq);
Writeln(´xxx´);
CloseFile(arq);
end;
end;

Onde estão as reticencias (...) faço diversas verificações num bloco while...do para depois abrir este arquivo texto e gravar as informaçoes.
Ao rodar o programa no Delphi ele abre e valida os dados. O problema é que após clicar em ´salvar´ na caixa de diálogo o sistema apresenta o seguinte erro:
Project teste.exe raised exception class EInOutError with message ´I/O error 105´. Process stopped. Use Step or Run to continue.
Dei uma lida no help do Delphi e vi que o Rewrite já abre o arquivo em modo I/O, aí fiquei sem entender...
Agradeço as dicas de todos.