Scar Script Problem

[tvirusx1]

Can someone please help me with this Script? Heres the Problem: every time I run the Script all it does is it firstly moves the mouse to 0,0 of the window(I assume it didn't find the colour). Secondly it constantly clicks on the MiniMap.

I'm not sure how I should make the Script so that if if does'nt find the Color it should just keep searching for abaut 20 seconds and then Click on the Minimap. If it finds the colour, after it clicks on it it should click on the minimap.

Please help me im trying to do this since 3 days but now I ran out of Ideas. Any help is Appreciated. Heres the Script:

program DarkOrbitBot;

var
x,y :Integer;

const
BonusBoxColor = 14417917;

Procedure ClickOnMap;
begin
  ClickMouseBox(654,548,801,647,True);
  Wait(200+random(50));
end;

Procedure FindBonusBox;
begin
  begin
    if FindColor(x,y,BonusBoxColor,1,62,818,492) then
      ClickMouseSpline(x,y,300,300,True);
      Wait(300+random(100));
      ClickMouse(x,y,True);
      ClickOnMap;
  end;
end;

//**************MAIN*****************//
begin

  begin
    ClickOnMap;
  end;

  repeat
    begin
      FindBonusBox;
    end;
  until(False);

end.
//////////////////////////////////////

PS: don't mind the //********MAIN**** it's just there so I dont get confused with the Procedures, I got used to C++, thats why MAIN.