@turboPASCAL
Das ist das hier:
http://www.delphipraxis.net/internal...=600828#600828 
Die Variante mit himitsus Ergänzung.
@matashen
Das Bild stammt von einer FireWire-Kamera mittels DSPack. Und das Eingangsformat hab ich eigentlich auf 24 Bit stehen. Aber nachdem ich jetzt an den Anfang beider Prozeduren "bmp.PixelFormat := pf24Bit;" eingefügt habe, funktioniert es. Danke! Anscheinend wurde das durch die Assigns unterschlagen
