Zitat:
a := ((((Buf[dx, dy] and 4278190080) div 16777216) and 255) - d;
Das kann ich casten und gut ist.. hoffe das macht nachher keine Problem. "Buf" die Rückgabe ist Byte
a := ((Integer((Buf[dx, dy]) and 4278190080) div 16777216) and 255) - d;
gruss