Stack overflow bei Timer

[netscanner]

Delphi-Quellcode:

procedure Kill;                                                                 // Gegner tot
begin
  If ((InGame1.iSp1.Top + InGame1.iSp1.Height) > (InGame1.iEnemy1.Top)) and     //kollision von oben
     ((InGame1.iSp1.Top + InGame1.iSp1.Height) < (InGame1.iEnemy1.Top + InGame1.iEnemy1.Height)) then
    begin
      InGame1.iSp1.Top := InGame1.iFloor.Top - InGame1.iSp1.Height;
      MonsterPos;
      inc(kills);
      InGame1.lKills.Caption := 'Getötete Gegner: '+IntToStr(kills);
    end;
end;