SetTimer dziwnie działa

0

Mam taki kod:

procedure Odliczanie(handle:hwnd;uMsg,idEvent,Time:cardinal);
begin

  i := Succ(i);
  form1.Label1.Caption := IntToStr(i);

end;

procedure TForm1.Button1Click(Sender: TObject);
begin

  i := 0;
  SetTimer(handle,48,1000,@Odliczanie); //stawiamy timera

end;

procedure TForm1.Button2Click(Sender: TObject);
begin

  KillTimer(handle, 48);

end;

Buttonem1 zapalam timera, na labelu zamiast sekundowe odliczanie 1..2..3..4.. dostaje co sekunde 2..4..6..8. Co tu jest grane?

0

mogę tylko powiedzieć SOA#1

1 użytkowników online, w tym zalogowanych: 0, gości: 1