Добрый день! Помогите остановить запущенный таймер

uses Timers,Events;
var g,h,n:integer;

procedure TimerProcExt(g:integer);
begin
write(1);
end;

begin
CreateTimerExt(100,TimerProcExt);
writeln('vvvvvvvv');
end.

Таймер работает бесконечно, а как остановить не знаю. ????????