Du kannst auch beide Buttons einzeln verwenden.
Delphi-Quellcode:
procedure TForm1.Leicht1Click(Sender: TObject);
begin
Timer1.Interval:=500;
end;
procedure TForm1.Schwer1Click(Sender: TObject);
begin
Timer1.Interval:=250;
end;
Dazu zwei Buttons auf die Form setzen und mit Namen Licht1 und Schwer1 benennen, danach das OnClick setzen und den Quelltext rein setzen.