du hattest aber vorher ein Array mit 768 Bytes pro Zeile
und bei 3 Farben macht das dann 256 Pixel
bei 512 wären es natürlich dann 0..511
Delphi-Quellcode:
type TPixelArray = packed array[0..0, 0..511] of packed record
...
oder wenn variabel dann:
Delphi-Quellcode:
TPixelArray = packed array[0..0] of packed record
b, g, r: Byte;
end;
PPixelArray(pAddr)[dy * Spalten + dx]