SRL Archive - OSR Help

It was an error in another part of my code.
Right now when my script is trying to script it will not stop click on fishing spots. I need to know how to end this function when click a fishing spot was successful. I tried creating a Boolean and when turned true the script would stop looping but it didnt work. Any ideas?

function FindFish: boolean;
var
  TPA: TPointArray;
  ATPA: T2DPointArray;
  i, x, y : Integer;
  R: boolean;
begin
R := False;
  repeat
    FindColorsTolerance(TPA, 10984084, MSX1, MSY1, MSX2, MSY2, 8);
    ATPA := TPAToATPAEx(TPA, 15, 15);
    for i := 0 to High(ATPA) do
    begin
      MiddleTPAEx(ATPA[i], x, y);
      MMouse(x, y, 4, 4);
      if WaitUpText('age', 600) then
      begin
        Mouse(x, y, 0, 0, false);
        WaitOption('arpoon', 600);
        R := True;
      end;
    end;
  until(R = True);
end;