Trabajando y conociendo mas a TextFile

[ecfisa]

Hola Ledian_Fdez.

Como es indiferente si existe o no, ya que de todas maneras tenés que vaciarlo, yo haría:

Código Delphi [-]
var
  F: TextFile;
  Linea: string;
begin
  AssignFile(F, 'C:\PERSONAL.TXT');
  Rewrite(F);
  DM.QryAutorizado.Open;
  while not DM.QryAutorizado.Eof do
  begin
    Linea := DM.QryAutorizadoCodigo.AsString +  '|'  + DM.QryAutorizadoNombre.AsString + '|' +
             DM.QryAutorizadoCIdentidad.AsString + '|' + DM.QryAutorizadoDir.AsString + '|' +
             DM.QryAutorizadocodigoEmail.AsString;
    Writeln(F,Linea);
    DM.QryAutorizado.Next;
  end;
  DM.QryAutorizado.Close;
  Flush(F);
  CloseFile(F);
end;

Un saludo.