Trabajando y conociendo mas a TextFile

[Ledian_Fdez]

He estado buscando documentación sobre el uso de TextFile y la verdad no he encontrado mucho sobre ello.

En hilos anteriores le comentaba que necesitaba de un archivo de texto actualizar unas tablas, todo funciono bien gracias a la ayuda de ustedes como siempre tan amable y eficientes. Este es el enlace del hilo:http://www.clubdelphi.com/foros/showthread.php?t=76381

Ahora necesito el paso inverso con los datos de unas series de tabla para crear el archivo de texto.

Tengo algo como esto:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
  F: TextFile;
  Linea: string;
begin
 if FileExists('C:\personal.txt') then
   begin
    AssignFile(F,'C:\personal.txt');
  // ¿Cómo limpiar o vaciar F?
   end
 else // si no existe
   begin
    // ¿Cómo crear el archivo vacio? para luego poder asignarlo a F
    AssignFile(F,'C:\personal.txt');
   end;   
  
 DM.QryAutorizado.Open;
 Append(F); 
 while not DM.QryAutorizado.Eof do
   begin
    Linea := DM.QryAutorizadoCodigo.AsString + '|' + DM.QryAutorizadoNombre.AsString + '|' +
             DM.QryAutorizadoCIdentidad.AsString + '|' + DM.QryAutorizadoDir.AsString + '|' +
             DM.QryAutorizadocodigoEmail.AsString;  

    DM.QryAutorizado.Next;
    Writeln(F,Linea);
   end;
 Flush(F);
 CloseFile(F);
 DM.QryAutorizado.Close;
 ShowMessage('ya');
end;

Cosas que quiero hacer:
1- Si el archivo no existe pues tengo que crearlo 1ro para luego asignarlo a F, AssignFile(F,'C:\personal.txt')
2- En caso de que exista y contenga información tengo que limpiarlo

Eso es lo que se me ocurre, Si alguien tiene otra idea mejor, pues se lo agradecere.

En espera de su ayuda y mil gracias de antemano
Le saludo.