如何在指定的调色板中取相似的颜色？

procedure ColorPalette;
const
    ColorEntries : packed array [0..10] of TPaletteEntry =
    (
        (peRed : $00; peGreen : $00; peBlue : $00),
        (peRed : $00; peGreen : $00; peBlue : $AA),
        (peRed : $00; peGreen : $AA; peBlue : $00),
        (peRed : $00; peGreen : $AA; peBlue : $AA),
        (peRed : $AA; peGreen : $00; peBlue : $00),
        (peRed : $AA; peGreen : $00; peBlue : $AA),
        (peRed : $AA; peGreen : $55; peBlue : $00),
        (peRed : $AA; peGreen : $AA; peBlue : $AA),
        (peRed : $55; peGreen : $55; peBlue : $55),
        (peRed : $7D; peGreen : $00; peBlue : $FF),
        (peRed : $00; peGreen : $00; peBlue : $00)
     );
begin
已知一个argb的颜色(argb:TRgb)
如何从ColorEntries中取个和argb相似的颜色 
end;