procedure ClickColor();
var
  x, y:Integer;
begin
  if(FindColor(x, y, 16750899 ,0,0,1300,800)) then
    ClickMouse(x, y, mouse_Left);
end;

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