разобралси: Чтобы перевести ARGB в RGB надо прибавить к нему 16777216, а потом уж вытигивать цвета div'ом и mod'ом.
Это будет работать для непрозрачных цветов, с полупрозрачными может быть и нет.
Кому надо, вот соответствующие функции на MP:
Function blue(color:integer):integer;
Begin
color:=color+16777216;
blue:=color mod 256;
end;
Function green(color:integer):integer;
Begin
color:=color+16777216;
color:=color div 256;
green:=color mod 256;
end;
Function red(color:integer):integer;
Begin
color:=color+16777216;
color:=color div 65536;
red:=color mod 256;
end;