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.