Hi, ich benutze für so eine Einstellung auch einen Timer und zusätzlich einen Counter, der einen Multiplikationsfaktor einstellt, je nachdem wie oft der Timer schon getriggert wurde:
Delphi-Quellcode:
procedure TForm_Main.tSetTimeTimer(Sender: TObject);
begin
Inc(Einstellen_Count); //Zählen wie oft schon ausgeführt
//Beschleunigung einstellen
case Einstellen_Count of
0.. 5: Richtung_Einstellen := 1;
6..10: Richtung_Einstellen := 5;
else
Richtung_Einstellen := 10;
end;
//Hier den Wert deiner Variablen entsprechend erhöhen/erniedrigen...
end;