Thanks for your help :-)

It now works as I want it to :-)

Global variable : gas as integer, gas := 1000 in my startmain procedure and the following:

Code:
procedure TForm1.RemainingGas;
begin
  Gas := Gas -1;
  car.Moved := (gas>0);
end;
The for loop is so attractive but I understand that the timer is the for loop :-)

Thanks again, you guys/girls are brilliant!