[icWasya]

ну осталось только посмотреть отладчиком

Код:

var
  C:TColor;
  X,Y:Integer;


Y:=0;
for X:=1 to 720 do
begin
  C:=form2.image1.canvas.pixels[X,3];
  if C = clGreen then
    Y:=Y+1;
end;

выключить оптимизацию, сделать останов на строке 10 и посмотреть, чему равен C;