Delphi-PRAXiS - Expose - Ein kleiner Bildeffekt

Ich hab hier mal für den Eigenbedarf eine Routine gebastelt, mit der bei Bildern ein ähnlicher Effekt erzeugt wird, wie wenn man das Bild mit zu langer Belichtungszeit fotografiert hat. Damit lassen sich nicht ganz so brilliant wirkende Fotos in ihrer Lichtwirkung evtl. ein wenig aufmöbeln.
Im Anhang Source+Echse, und das Bild ist ein Vorher/Nachher (zur Demonstration mit recht extremer Einstellung). Evtl. sucht ja mal jemand soetwas :D

Gruss,
Fabian

Update: Es lies sich durch das Entfernen von ein paar unsinnigen (:oops:) Aktionen noch ein paar Prozent Geschwindigkeit gewinnen (~15% bei mir)