Simba Auto looter not working

few months ago i made a autolooter it was working fine back then but same auto looter is compiling but not working properly
Here is my simba auto looter :-
(NOTE : there is no prob with coordinates or any number , the prob is it's not moving while holding)
__________________________________________________ __________________________________________________ _______________________
program rotmg_autolooter;
procedure sublooting;
begin
movemouse(640, 580);
holdmouse(640, 580, 1);
movemouse(640,490);
releasemouse(640,490, 1);
end;

procedure looting;
var
x, y:Integer;
begin
if findcolor(x, y, 5526612, 785, 640, 785, 640) then
begin
sublooting;
end;
end;

begin
repeat
looting
wait(200);
until(false)
end.

__________________________________________________ __________________________________________________ ________________________

I know exactly where it's not working , it's :-

movemouse(640, 580);
holdmouse(640, 580, 1);
movemouse(640,490); <-----------when this function happens it just move the cursor didn't hold it (this is the prb)
releasemouse(640,490, 1);

It was working properly before but IDK Y it's not working now, why it's not holding it when moving !!!

PLEASE HELP