[cherepets]

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;

число полученное геткалором даешь функциям