IF SENDER = BUTTON2 THEN
  BEGIN
    hizbul;
    yonbul;
  END;
  IF sender = button1 THEN
  BEGIN
    hizbul;
    yonbul;
    isyaptir(listbox1.ItemIndex, listbox2.ItemIndex + 1);
    tikla(769, 714);
    sleep(5000);
  END;
  IF sender = button3 THEN
  BEGIN
    WHILE checkbox1.Checked DO
    BEGIN
      hizbul;
      yonbul;
      isyaptir(listbox1.ItemIndex,ListBox2.ItemIndex+1);
      sleep(10000);
    END;
  END;