Is this correct?

[WojTec]

Get RGB from TColor:

Delphi-Quellcode:

R := AColor and $FF;
G := (AColor shr $8) and $FF;
B := (AColor shr $10) and $FF;

Set TColor from RGB:
Result := (B shl $10) or (G shl $8) or R; Is it ok?