Moin moin,
Khabarakh hat hier schon das Problem erkannt.
Zitat von
Khabarakh:
Bei der Bereichsprüfung darfst du dich nicht wundern, wenn du mit einem "array[0..0]" arbeitest
...
einen PColor32-Zeiger per @bmp.Bits[0] holen und dann inkrementieren.
Das sollte so funktionieren.
Delphi-Quellcode:
// Bild "flippen"
// >>--> AV / Berechsüberprüfung
for n := 0
to bmp32.Width * bmp32.Height-1
do begin
DataArray[n] := P[0];
Inc(P);
end;