Fórum Erro na manipulção de arquivo I/O error 113 #396086

 
var
  nomearquivo: String;
  arquivo: TextFile;
begin
  nomearquivo := Form1.Edit1.Text; // To pegando um campo de outro form // form de login
  if a = 2 then
  begin
    AssignFile(arquivo, nomearquivo + '.txt'); // já tentei colocar aqui o nome do arquivo só para ver se o campo  //que eu tava pegando do outro furmulário estava errado mais dá erro mesmo assim

    Append(arquivo); // já tentei sem esta parte não func
    Write(arquivo); //abre o arquivo para escrita
    Write(arquivo, Edit1.Text + '=' );

    Edit1.Clear;
  end;
  Closefile(arquivo); //fecha o handle de arquivo