var 
  mmerk: array[0..2] of integer; 
 
const 
  mgeschw: array[0..6, 0..2] of integer = 
  ((0, 0, 0), (10, 0, 1), (7, 0, 1), (4, 0, 1), (4, 10, 2), (4, 7, 2), (4, 4, 2)); 
 
  tempo: integer = -1; 
 
procedure stufe; 
begin 
  inc(tempo); 
  if tempo > 6 then tempo := 0; 
  systemparametersinfo(spi_setmouse, 1, @mgeschw[tempo], SPIF_UPDATEINIFILE); 
  form1.label1.caption := 'Stufe: ' + inttostr(tempo + 1); 
end; 
 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
  systemparametersinfo(spi_getmouse, 0, @mmerk, 0); 
  stufe; 
end; 
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
  systemparametersinfo(spi_setmouse, 1, @mmerk, SPIF_UPDATEINIFILE); 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  stufe; 
end;