[lmikle]

1. комбинация "<>" означает "не равно".
2. if в else там вообще не нужен, бо как цвет либо равен, либо не равен, т.е. код можно переделать так:

Код:

procedure TScan.Execute;
var
  x,y : integer;
begin
  Repeat
    For x:=X1 To X2 Do
    For y:=Y1 To Y2 Do
    If c.Pixels[x,y]=Cl 
      Then Synchronize(FindVisual)
      Else Synchronize(Conrtol);
  Until Terminated;
end;

ЗЫ. Ну и ошибка там в коде была, так что он вообще компилиться не должен был.