A Lazarus/Free Pascal Unit for Mirroring Bitmaps