Разпознание "+" и "-" на картинке!

[Bondul]

Помагите разабратся с ошибками [Error] Unit1.pas(99): Operator not applicable to this operand type и с [Error] Unit1.pas(101): Operator not applicable to this operand type

вот пример картинке

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  _w,_h, i, j: Integer;
begin
 With Image1.Picture.Bitmap.Canvas do
 _w := image1.Picture.Bitmap.Width;
 _h := Image1.Picture.Bitmap.Height;
 for i:= 0 to _w-1 do
 for j:= 0 to _h-1 do
begin
  if Image1.Picture.Bitmap.Canvas.Pixels[i, j] = clBlack  and (x>i) and (x<i) then  /// Вот здесь вылезает у меня ошыбка [Error] Unit1.pas(99): Operator not applicable to this operand type
  label1.Caption:='Это -';
  if Image1.Picture.Bitmap.Canvas.Pixels[i, j] = clBlack  and (x>i) and (x<i) and (y>j) and (y<j) then   /// и Вот здесь вылезает у меня ошыбка [Error] Unit1.pas(101): Operator not applicable to this operand type
  label2.Caption:='Это +';
end;
end;

end.

[_SERGEYX_]

Скобки поставь

if  (Image1.Picture.Bitmap.Canvas.Pixels[i, j] = clBlack)

В смысл кода не вникал, но что-то я не понял как x будет одновременно и больше и меньше i

[Bondul]

Сообщение от _SERGEYX_

Скобки поставь

if  (Image1.Picture.Bitmap.Canvas.Pixels[i, j] = clBlack)

В смысл кода не вникал, но что-то я не понял как x будет одновременно и больше и меньше i

Да действительно скобок не хватало

В смысл кода не вникал, но что-то я не понял как x будет одновременно и больше и меньше i

А вот сетем ещё нужно разобратся есле кто знает подскажите пожалуйста!

[Аватар]

(x>i) and (x<i) и разбираться нечего, никогда не выполнится