это AARRGGBB
int, в котором первый байт указывает на альфу, второй - на красный канал, и т.д.
битовым сложением/умножением вытащи из него нужное
* Алгоритм имепра и правда не труЪ.
Вот нарыл обратную операцию:
Function ARGB(A#,R,G,

Return (Int(A*255) Shl 24) Or (R Shl 16) Or (G Shl

Or B
End Function
Надеюсь, поймёшь как сделать то что тебе нужно.
Ищи на Blitzetc'е, там статьи соотв. были.
К примеру, вот:
http://blitzetc.blitzmax.ru/index.ph...%D0%BA%D0% B8