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;