uses MMSystem ///подключим необходимый модуль
...
var
 
 TID:Integer;
...

procedure TimeCallback(TimerID, Msg : UINT; DWUser,DW1,DW2 : DWord); pascal;

///сюда вставляем код, который должен выполняться по таймеру

end;

procedure StartTimer(interval:cardinal);
begin
 TID := timeSetEvent(interval,0,@TimeCallBack,0,TIME_PERIODIC);
end;



//используем нашу процедуру

StartTimer(10000)  // то есть 10 секунд