Convertir une Couleur de RGB en COLORREF (BGR)

function rgb2bgr(R,G,B: byte): COLORREF;overload;
begin
Result:= (Integer(B) shl 16) + (Integer(G) shl 8) + R;
end;

function rgb2bgr(RGB: integer): COLORREF;overload;
var
R,G,B: integer;
begin
R:= RGB div $10000;
G:= ((RGB mod $10000) div $100) shl 8;
B:= (RGB mod $100) shl 16;
Result:= B + G + R;
end;