Zitat von
iGoA:
entweder
rot := (color and $ff0000) shr 16;
oder
rot := (color and $ff);
eines von beiden. ich verwechsel manchmal, in welchem Byte rot und blau gespeichert sind.
(1) ist Falsch, dass ist Blau
(2) Color and $FF;
oder nimm GetRValue(Color);