procedure TFrmSetDate.SetDateTimeForFile(AFileName: string; ADateTime: TDateTime);
var
  ImageEnView: TImageEnView;
begin
  ImageEnView := TImageEnView.Create(nil);
  try
    ImageEnView.IO.LoadFromFile(AFileName);
    ImageEnView.IO.Params.EXIF_DateTime2 := ADateTime;
    ImageEnView.IO.Params.EXIF_DateTimeOriginal2 := ADateTime;
    ImageEnView.IO.SaveToFile(AFileName);
  finally
    ImageEnView.Free;
  end;
end;

// Update the GPS EXIF data in a file
io := TImageEnIO.create(nil);
try
  io.ParamsFromFile( FilenameStr );

  io.Params.EXIF_GPSLatitude  := GPSLatitudeFloat;
  io.Params.EXIF_GPSLongitude := GPSLongitudeFloat;
  io.Params.EXIF_GPSVersionID := GPS_Version_ID;
  io.Params.EXIF_HasEXIFData  := True;

  io.InjectJpegEXIF( FilenameStr );
finally
  io.Free;
end;

// Update EXIF date for the current file
ImageEnView1.IO.Params.EXIF_DateTime2 := Now;
ImageEnView1.IO.Params.EXIF_DateTimeOriginal2 := Now;
ImageEnView1.IO.Params.EXIF_HasEXIFData  := True;
ImageEnView1.IO.InjectJpegEXIF( ImageEnView1.IO.Params.Filename );