uses MMSystem; //Модуль с мультимедиа-функциями
var Timer1:Integer; //Идентификатор таймера, с помощью которого происходит управление таймером
//Функция, вызываемая таймером
procedure TimeCallBack(TimerID, Msg: Uint; dwUser, dw1, dw2: DWORD); pascal;
begin
     //Делаем что-нибудь здесь
end;
//Создание таймера
procedure TForm1.Button1Click(Sender: TObject);
begin
      Timer1:=TimeSetEvent(10, {Слева период вызова функции справа в миллисекундах} 0, @TimeCallBack, 0, TIME_PERIODIC);
end;
//Убить таймер
procedure TForm1.FormDestroy(Sender: TObject);
begin
    TimeKillEvent(Timer1);
end;