procedure ClickColor();
var
  x, y:Integer;
begin
  if(FindColor(x, y, 16711680 ,0,0,600,652)) then
  begin
    MoveMouse(x, y);
    ClickMouse(x, y, mouse_Left);
  end;
end;

begin
  repeat
    ClickColor();
    wait(20 * 1000); //<- ms between clicks
  until(false);
end.