delphi - Delphi - 图像颜色检测

Question

我有一个问题，是否有一些库或代码可以检测颜色是否与绿色、蓝色、黄色等最相似？

我可以用这个函数分解 TImage 的像素颜色：

procedure RGB(Col: TColor; var R, G, B: Byte);
var
  Color: $0..$FFFFFFFF;
begin
  Color := ColorToRGB(Col);
  R := ($000000FF and Color);
  G := ($0000FF00 and Color) Shr 8;
  B := ($00FF0000 and Color) Shr 16;
end;

但单纯比较r>g>bi无法判断，颜色是否更接近黄色、棕色左右。我只需要很少的基本颜色（研究小孩教育的东西）

我会非常感谢每一个提示或帮助。