This will help a little bit, I took out the mmouse and clickmouse, and replaced with Mouse. It does all of it, but in one function.
Keep in mind that you're only calling the procedure once in your script at the bottom, so it will run the Procedure ChopTree only one time through then end, meaning if it doesn't find it, it will just end.
Simba Code:
Program ChopTree;
{$I SRL-OSR/SRL.simba}
Procedure ClickTree;
var
X,Y:Integer;
begin
if FindColorTolerance(X, Y, 10336, 262, 91, 289, 116, 5) then //Changed to an if...then statement because it's better
begin
`Mouse(x, y, 0, 0);
End;
End;
Begin
MouseSpeed := 15;
SetupSRL;
ClickTree;
end.