SRL Archive - OSR Help

I'm making an Al Kahrid tanner that works perfectly for me apart from randomly it stopped right clicking.

procedure TanHides;
var
  x, y, Tan: Integer;
  DotTPA, Dot2TPA: TPointArray;
  i, H, q, w: Integer;
  NPCPoint, BankPoint: TPoint;
  Answer: Boolean;

begin
  Tan := BitmapFromString(28, 8, 'meJzjV1I/f+YxEPErqVeGsSAjoAg' +
        'aQpNCU4MsCzezNpoNjuDiyAiiBlkLpiyagp5UdmSE5ki4MmSjMGUh' +
        'GuHcydkcyIigmXAtaCLI3DmFHHCE1e+YZqIphoggcxeUcEIQmqvwu' +
        'BNTPRp3aQUnBGEK4jITq3pk7uoaLgjCdCcuv2OqB3IBVxsaaw==');

  repeat
    If IsMoving Then
    Wait(RandomRange(1300,1700));
    Answer := False;
    DotTPA := GetMMDotsOnMS('npc'); //Stores results of GetMMDotsOnMS in DotTPA

    If (Length(DotTPA) < 1) Then
    begin
      If False Then
        Writeln('No yellow dots on MM. Script stopping.');
      Exit;
    end;

    H := High(DotTPA);
    For i := 0 To H Do
    begin
    NPCPoint := MMtoMSEx(0,-6,DotTPA[i]); //Pass all points of DotTPA to MMtoMS
      begin
        If NPCPoint.y <= 310 Then
          MMouse((NPCPoint.x - 50), (NPCPoint.y - 50), 3, 3); //Moves mouse to all the NPCPoint values
      end;

    If WaitUpTextMulti(['Ell', 'llis', 'lis'], RandomRange(100,400)) Then //Finding correct NPC
      begin
        ClickMouse2(False);
        Wait(RandomRange(200, 300));
        ChooseOptionMulti(['an hi','hid']);
        Wait(RandomRange(700, 1000));
        Answer := True; //Found and clicked
        Break;
      end;
    end;
    Wait(Random(600) + 800);
  until(FindBitmap(Tan, x, y));

  if FindBitmap(Tan, x, y) then
    Mouse(x, y, 10, 10, True);
    FreeBitmap(Tan);

  Wait(Random(400) + 200);
  Loads := Loads + 1;
end;                         

If you put that into simba at Ellis in Al Kahrid it should run fine, but doesn't click when the commands for it are there. :S