Try this:

[pascal]
procedure TExplode.DoMove(MoveCount : integer);
begin
inherited doMove(MoveCount);
lifecount := lifecount +1;
if lifecount > 5 then
Dead;
end;
[/pascal]