德尔福 - 图像颜色检测

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＆gt; b我无法确定，如果颜色更接近黄色，棕色等。我只需要几种基本颜色（从事小孩教育工作）

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