Quote Originally Posted by Wizard
Thanks for the replies guys :-)

PStudio, with your solution the Lifes goes to 5 and stays that way ...?
Becasue LivesLeft is not incremented.

It should be like this:

Code:
procedure TFormGame.BonusLife;
begin
  if Points mod 25000 = 0 then 
  begin
    Inc(LivesLeft,2);
    Lives := LivesLeft;
  end;
end;