Problemas al crear TXT y asignar un String

[lucasarts_18]

Hola:

Maeyanes, gracias al link que me enviaste he logrado corregir el error por el cual inicie este post, aunque me quedo con tu idea, al parecer es mejor manejarlo así, de esa manera.

dejo la solución por si alguien la necesita...

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 begin
   chdir('C:\');
   AssignFile(Afile,'Hola.txt');
   if fileexists('Hola.txt') then
   begin
     Reset(Afile);
     existe := True;
     escribir();
   end
   else
   begin
     Rewrite(Afile);//esto creo el archivo si no existe....
     escribir;
   end;
 end;
 
 procedure TForm1.escribir;
 begin
   if existe = True then
   begin
     append(Afile);
     Writeln(Afile,'Hola');
   end
   else
     Writeln(Afile,'Hola');
 
   flush(Afile);
   CloseFile(Afile);
 end;

No sé si será la mejor forma de hacerlo pero es la única manera que encontré, tuve que quitar la función FileCreate (para que diablos está !!!!, si con rewrite se puede crear archivos, la unica diferencia que yo veo es FileCreate no necesita una variable asociada, crea directamente el archivo)

No sé si estaré en lo acertado, pero cualquier correción estoy con los ojos bien abierto para aprender.....

Saludos