Huehnerschaender

Thanks so much!!! It's working :-)
Code:
procedure TFormGame.BonusLife;
begin
if (Points >= 25000) and not XtraLife25000 then
begin
inc(LiVes,2);
XtraLife25000 := TRUE;
end;

if (Points >= 50000) and not XtraLife50000 THEN
begin
inc(LiVes,2);
XtraLife50000 := TRUE;
end;
I'll try to figure out how to do the array of bool.