[Aristarh Dark]

Лучше второе

Код:

program Project1;

{$APPTYPE CONSOLE}


uses
   windows,messages,sysutils,dialogs;

var
  temer,count:integer;

procedure getting(hnd:HWND;uMsg:UINT;tem:UINT;tickt:DWORD); stdcall;
begin
 inc(count);
 if count>10 then killtimer(0,temer);
 inputbox('Таймер сработал '+IntToStr(count)+' раз','','');
end;


begin
  count:=0;
  temer:=settimer(0,0,200,@getting);
  inputbox('Это чтобы прога не завершилась ;)','','');
end.