Programmer un Timer multimédia

uses mmsystem;

var
fid:Integer;

procedure TimeCallBack(TimerID, Msg:Uint; dwUser, dw1, dw2: DWord); pascal;
begin
//Do something here
//This procedure will executed each 10 ms
form1.Label1.Caption:=form1.Label1.Caption+'%';
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
TimeKillEvent(fid);
end;

//Set a new timer with a delay of 10 ms
procedure TForm1.Button1Click(Sender: TObject);
begin
fid:=TimeSetEvent(10,0,@TimeCallBack,0,TIME_PERIODIC);
end;