FindObj not working

Ok, so I just reinstalled windows toget windows 8 so I deleted all my simba stuff. I got it back and now im writing just a power chopper.

I know im using FindObj its just for starting then il change to FindObjTPA nad AutoColorAid ok?

Thanks
http://paste.villavu.com/show/7evk8DRuFLygtiqkbyZG/

or

Code:

---

program PowerOak;
{$i srl/srl.simba}
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
procedure ChopTree;
var x,y:integer;
begin
ExitSquealOfFortune;
  if FindObjCustom(x,y,'chop',1978423,15) then
  begin
  Mouse(x,y,2,2,true);

  //repeat
  //Wait(1200+random(250));
  //until not IsUpText('oak') or (InvFull);
  end;

end;
begin
SetupSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
ExitSquealOfFortune;
ChopTree;
end.

---

Left password in script

OMFG THANKS!!!!!

Ok I fixed it I changed it to
if FindObjCustom(x,y,['chop', 'down','oak'],[1978423,2242367,2703691],15) then

please don't hack me ;(