[angvelem]

У тебя неверно отрабатывает эта часть:

Код:

  begin
    if (TColorQuad(AColor).Red > $c0) or
       (TColorQuad(AColor).Green > $c0) or
       (TColorQuad(AColor).Blue > $c0) then
      Result := clBlack
    else
      Result := clWhite;
  end;

её и смотри.