Fórum Gravar em arquivo texto #196975

É o segunte, estou precisando fazer um aplicativo somente para registrar um arquivo de log, onde tem o e-mail a data e a hora.

O código é o segunte:

AssignFile(arq, ´c:\cyber\log.txt´);
{$I-} Reset(arq); {$I+}
FileMode := 1;
if IOResult = 0 then
begin

log := email.text + ´-´ + datetostr(date) + ´ ´ + timetostr(time) + #13;
Write(arq,log);
end
else
begin

Rewrite(arq);
log := email.text + ´-´ + datetostr(date) + ´ ´ + timetostr(time);
Write(arq,log);
end;
CloseFile(arq);

Mas está dando o erro I/O 103. O que estou fazendo de errado?

Antecipadamente, obrigado....

João Miguel

[b:f76885503a]Editado pelo Moderador - AZ[/b:f76885503a]