Estou tendo um problema onde ao passar pela função write
o mesmo acaba travando dentro da função, e não retorna nada, tendo que fechar a aplicação e abrir de novo, abaixo o código para teste, basta criar um projeto e colar o código no FormCreate:
procedure TForm1.FormCreate(Sender: TObject);
var
F : TextFile;
mArquivo,s : String;
i: integer;
begin
{$i+}
mArquivo := 'C:\Users\Rodrigo\Desktop\teste.txt';
AssignFile(F,mArquivo);
if FileExists(mArquivo) then
DeleteFile(mArquivo);
Rewrite(F,mArquivo);
Append(F);
for i := 0 to 10 do
begin
S := 'Text'+ IntToStr(i);
Write(F,S);
end;
CloseFile(F);
end;