It's my first time, I need help making one or getting the codes what i need.

program falcon;
{$DEFINE SMART8}
{$I SRL/SRL.Simba}
{$I P07Include.Simba}


Procedure falcon;
var
X, Y: Integer;
begin
if FindColorSpiralTolerance(x, y,5005168, 51, 55, 356, 217, 20) Then


begin
MoveMouse(x, y);

end;
end;

begin
falcon;
//repeat
//falcon;
//until(false);
end.