Trying to Make it Find bone, Right click and Pickup.. Anyone see any errors?

Code:
program lol;

{$I SRL/SRL.Simba}
{$I P07Include.Simba}


var
x, y: Integer;

procedure FindBone;
var x, y: integer;
begin
MouseSpeed:=20;
    If P07_FindObj(x, y, 'Take', 16777215, 10) Then
    begin
      Mouse(x, y, Random(2), Random(2), false);
      P07_ChooseOptionMulti(['ake Bo']);
    end;
    end;

begin;
 FindBone;
end.