var
H: HWND;
const
ID = 101;
TimerInterval = 1000;

procedure OnTime;
begin
showmessage('!!!');
end;

// Cоздание  
begin
SetTimer(H, ID, TimerInterval, @OnTime);
end;
// Закрытие  
begin
KillTimer(H, ID);
end;