Script Help

i need help for a script that will use smooth mouse movement to click on a red block on a screen,
i want it to click the red block, the red block moves around the screen so it needs to be able to find the red block and click on it, maybe a 2-5 second delay inbetween

i have this so far but i need it to click once its on the red block and then repeat it



program New;
{.Include SRL/SRL.Scar}

Var
X, Y: Integer;
TB : TBox;

Begin
SetupSRL;
ActivateClient;
Wait(999);
GetClientDimensions(TB.x2, TB.y2);
If FindColorTolerance(x, y, 255, TB.x1, TB.y1, TB.x2, TB.y2, 15) Then
MMouse(X, Y, 0, 0);

End.

 

enjoy