function IsLightColor(const AColor: TColor): Boolean;

var

  r, g, b, yiq: integer;

begin

  r := GetRValue(AColor);

  g := GetGValue(AColor);

  b := GetBValue(AColor);

  yiq := ((r*299)+(g*587)+(b*114)) div 1000;

  if (yiq >= 128) then

    result := True

  else

    result := False;

end;