i need help with my script

[maxlvs]

@Wanted i made a rune sudoku solver but like it really slow heres a piece so you can understand

 

i did this 81 times for each of the 81 squares but it puts more then one rune in the same row or column because it so fast it does not see that it just clicked 1 square in the row and it takes a little for the rune to appear so i put wait 700mill sec and up to wait 1 whole second but then it will take to long to complete the puzzle like i know theres a better way to make scar check each row column and box and i know wanted made a sudoku script so could you help me here

 

thanks

 

program sudoku;

 

var

mind, fire: TSCARBitmap;

x, y: Integer;

 

 

 

begin

mind := TSCARBitmap.Create('kuyiuknjhiuyt8487ywhsiduyig==');

fire := TSCARBitmap.Create('ksujdgfljksdglzjdjghldfjghgfh==');

 

If FindBitmap(x, y, mind, 118, 8, 445, 39) or //accross //1st box

FindBitmap(x, y, mind, 118, 8, 150, 335) or // down

FindBitmap(x, y, mind, 118, 8, 223, 113)Then //box

begin

writeln('found mindA1');

movemouse(28, 110);

clickmouse(28, 110, false);

end else

begin

writeln('did not find mindA1');

movemouse(28, 110);

clickmouse(28, 110, false); //on mind rune

movemouse(127, 22);

wait(200);

clickmouse(127, 22, false); // add wait 700mil seconds after box clicks

wait(700)

end; //complete

 

If FindBitmap(x, y, mind, 118, 8, 445, 39) or //2nd box

FindBitmap(x, y, mind, 155, 8, 186, 335) or

FindBitmap(x, y, mind, 118, 8, 223, 113)Then

begin

writeln('found mindA2');

end else

begin

writeln('did not find mindA2');

movemouse(167, 25);

wait(200);

clickmouse(167, 25, false);

wait(700)

end; //complete

 

If FindBitmap(x, y, mind, 118, 8, 445, 39) or //3rd box

FindBitmap(x, y, mind, 192, 8, 224, 335) or

FindBitmap(x, y, mind, 118, 8, 223, 113)Then

begin

writeln('found mindA3');

end else

begin

writeln('did not find mindA3');

movemouse(213, 25);

wait(200);

clickmouse(213, 25, false);

wait(700)

end; //complete