WriteLn Catching on Delphi Seattle

As discussed, just remove the m File parameter from the ReWrite function and it will work.

Reviewed the code found.

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);

   // Se você vai usar o rewrite abaixo então não tem
   // sentido fazer isso aqui.   
   if FileExists(mArquivo) then
      DeleteFile(mArquivo);

   // O rewrite cria o arquivo e, caso ele exista, vai apaga-lo
   // e recriar um novo.

   Rewrite(F,mArquivo); // Erro

   // Append serve para você abrir um arquivo e adicionar novas linhas a  
   // a ele. Aqui é totalmente desnecessário. 
   Append(F);

   for i := 0 to 10 do
   begin
      S := 'Text'+ IntToStr(i);
      // Isso, claro, deveria ser WriteLn
      Write(F,S);
   end;
   CloseFile(F);
end;

Rewriting.

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);

   // Como a variavel F é um textFile então rewrite tem apenas um parametro
   Rewrite(F);

   for i := 0 to 10 do
   begin
      S := 'Text'+ IntToStr(i);
      WriteLn(F,S);
   end;
   CloseFile(F);
end;