Getting this error in my code:
Error: Exception: Type Mismatch at line 31
please help 
Simba Code:
program new;
{$DEFINE SMART8}
{$i srl-OSR/srl.simba}
Const
NAME = '';
PASS = '';
NICK = '';
OreC1 = '2898271';
OreC2 = '1910851';
OreC3 = '2240075';
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := NAME;
Players[0].Pass := PASS;
Players[0].Nick := Nick;
Players[0].Active := True;
end;
function MineOre:Boolean;
Var x, y, PlusOne: integer;
Begin
PlusOne := InvCount+1;
FindNormalRandoms;
If (FindObjCustom(x, y, ['ine', 'ock'], [OreC1, OreC2, OreC3], 5)) Then
ClickMouse2(mouse_right);
WaitOptionEx('Mine', 'action', ClickLeft, 150);
repeat
wait(400+random(250));
until (InvCount=PlusOne);
end;
begin
DeclarePlayers;
SetupSRL;
ActivateClient;
LoginPlayer;
Repeat
MineOre;
if InvFull Then
DropAll;
Until(false);
end.