Exportar en un archivo txt

[oscorm]

lo he probao y funciona, app_path es el directorio donde se ejecuta la aplicacion

Código Delphi [-]
 function app_path: String;
 begin
      Result := ExtractFilePath(Application.ExeName);
 end;
 
  
 procedure Tmiform.Button1Click(Sender: TObject);
 var S: string; f: Textfile;
 begin
      AssignFile(F,app_path + 'Dades.txt');
      Rewrite(F);
      coches.First;
      While not coches.EOF do Begin
            s:='#';
            s:=s+coches.FieldbyName('Interno').asString+'#';
            s:=s+coches.FieldbyName('Referencia').asString+'#';
            Writeln(F,s);
            coches.Next;
      end;
      Closefile(F);
 end;