Désolé mais je ne vois pas l'implémentation de la fonction :
EXIF_DateFormat_to_French_DateFormat

Or j'aurais besoin assez rapidement de pouvoir extraire les dates de prise de vue d'images JPEG pour mon programme, pourrais-tu m'en montrer une implémentation STP ?

Ta procédure est compliquée et laisse parfois des caractères 10 et 13
qui s'affichent en rectangles sous le bloc-notes il y a beaucoup plus simple :

procedure Unix2Dos(nomfic: string);
var
l:tstringlist;
begin
  l:=tstringlist.cretae;
  l.LoadFromFile(nomfic);
  l.Text:=ansireplacestr(l.Text,#10,#13#10);
  l.SaveToFile(nomfic);
  l.free;
end;

NB : Il faut ajouter StrUtils à la clause uses.