Billard - einfacher Zähler, checkboxen ..

[Scardre]

Also bei mir läuft alles über eine Timerprocedure und der Intervall ist auf z.b. 100 geschaltet, dann wollte ich das der "user" dies erhöhen oder erniedrigen kann damit die Kugel sich schneller/langsamer bewegt.
Und ich hab dann 10 genommen damit das gleich um einiges schneller geht. Aber mein Prob ist, dass wenn ich "im Spiel" ein Häckchen in die checkbox mache, nichts passiert. Wie behebe ich das?

Code:

procedure TForm1.CheckBox1Click(Sender: TObject);
  var
  Checked: Boolean;
begin

if Checkbox1.Checked=CheckBox1.Checked  then timer1.Interval := timer1.Interval - 50;
end;

Der Code dürfte mittlerweile ziemlich falsch sein, da ich nach einige Zeit einfach irgendwas versucht hab.
es muss doch eine if-then prozedur sein oder nicht??? könntest du mir eventuell den genauen code posten.


P.S.: Ok ich hab das garnicht absichtlich in die Kategorie Datenbank gepostet und werde beim nächsten mal die Fragen in mehrer threads aufteilen, sorry.