Как на pascal.abc поставить таймер на паузу по нажатию клавиши?

[ComixZone]

uses CRT,Timers,Events;
var i:integer;

procedure Second;
begin
clrscr;
inc(i);
write(i);
end;

var t: integer;
begin
hidecursor;
i:=0;
t:=CreateTimer(1,Second);
end.