SRL Archive - OSR Help

Basically, I thought I fixed the anti-leech on this script but I keep getting this same problem, I don't know where to put the semi-colon :S
The error I'm getting: [Error] C:\Users\Ryan\Downloads\CurseRelease.simba(41:1): Semicolon (';') expected at line 40
Compiling failed.

program Curser;
{$I SRL/SRL.Simba}
{$I SRL/SRL/Misc/Debug.Simba}
{$I P07Include.Simba}


var
x,y:Integer;
procedure Friendchat;
begin
mmouse(671,509,5,5);
  wait(randomrange(10,100));
 clickmouse2(mouse_left);
 wait(randomrange(500,5000));
 mmouse(833,209,5,5);
 wait(randomrange(10,50));
 clickmouse2(mouse_left);
 end;

 procedure CheckInvo;
 begin
 mmouse(735,212,5,5);
 wait(randomrange(10,150));
 clickmouse2(mouse_left);
 wait(randomrange(500,5000));
 mmouse(835,206,5,5);
 wait(randomrange(25,50));
 clickmouse2(mouse_left);
 end;


procedure ClickCurse;

begin
   WriteLn('Clicking curse');
   mmouse(659,261,5,5);
  clickmouse2(mouse_Left);
  wait(randomrange(50,200));
  end
procedure CurseMonk;
begin
if P07_FindObj(x,y, 'Monk',3423118,5) then
begin
  mmouse(x,y,2,2);
  clickmouse2(mouse_left);
  wait(randomrange(1000,2000));
  end
  end;
Function AntiBan: Boolean;
begin
  case random(300) of
  1: FriendChat;
  2: P07_MakeCameraAngleHigh;
  3: P07_MakeCompassSouth;
  4: P07_MakeCompassEast;
  5: P07_MakeCompassWest;
  6: MMouse(random(700), random(400), 0, 0);
  7: CheckInvo;
  end;
end;


  begin
  SetupP07Include;
  ActivateClient;
  wait(randomrange(500,2000));
   repeat
  ClickCurse;
  CurseMonk;
  antiban;
  until(false)


end.