Small unit to load JPEG images in Delphi honoring Exif orientation
...This small unit does it for you: it is the smallest and fastest JPEG Exif reader currently available for Delphi and automatically applies the necessary transformations to a TBitmap object after loading.
Useage:
procedure JPEGLoadBitmap(ABitmap: TBitmap; AFileName: String); overload;
procedure JPEGLoadBitmap(ABitmap: TBitmap; AStream: TStream); overload;