JPG-Datei drehen und speichern -> Verlust der Exif-Daten

[axelf98]

Hallo, ich bin auf der Suche nach einer Möglichkeit JPG Bilder zu bearbeiten und dann (mitsamt der Exif-Infos) wieder zu speichern.
Das klappt auch soweit ganz gut:

Delphi-Quellcode:

  Extention := Ansilowercase(Extractfileext(DName));
  if (Extention = '.jpg') or (Extention = '.jpeg') then
  begin
   Jpg := TJPEGImage.Create;
   JPG.LoadFromFile(DName);
   BITMap.Assign(JPG);
   if Grad = 90 then
    Drehen90Grad(BITMAP) ELSE
    Drehen270Grad(BITMAP);
   JPG.Assign(Bitmap);
   JPG.SaveToFile(DName);
   JPG.Free;
  end;

Leider werden hierbei die vorher vorhandenen Exif-Infos gelöscht. Wie kann man das verhindern? (Die Windows Bildvorschau schafft das doch auch...)