http://algolist.manual.ru/search/esearch/

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 секунд

var
  fi, fo: file;
  a: integer;
..
assignfile(fi, 'a.in');
reset(fi);
assignfile(fo, 'a.out');
rewrite(fo);
read(fi, a);
write(fo, a);
close(fi);
close(fo);

var
  a: integer;
..
assignfile(input, 'a.in');
reset(input);
assignfile(output, 'a.out');
rewrite(output);
read(a);
write(a);
close(input);
close(output);

var
  a: integer;
..
reset(input, 'a.in');
rewrite(output, 'a.out');
read(a);
write(a);
close(input);
close(output);

var
  a: integer;
..
reset(input, 'a.in');
rewrite(output, 'a.out');
try
  read(a);
  write(a);
finally
  close(input);
  close(output);
end;

var input : File;
begin
  AssignFile(input, 'a.txt');
  {$I-}
    Reset(input);
  {$I+}
  if IOResult <> 0 then exit;
  CloseFile(input);
end;

 
 push _start	  ; адрес начала блока
 mov eax,esp	  ; eax = Pstart_block
 push 100	  ; длинна блока
 mov edx,esp	  ; edx = Plength_block
 push esp	  ; для нас не важно
 push 4 	  ; новые права доступа
 push edx	  ; Plength_block
 push eax	  ; Pstart_block
 push -1	  ; говорит что это наш процес
 xor eax,eax	  ;
 mov al,89h	  ; eax=89h => NtProtectVirtualMemory для XP
 push eax	  ; в нашем случае не важно что тут
 push @m1	  ; куда попадем после SYSENTER
 mov edx, esp	  ; нуна для SYSENTER
 sysenter
@m1:
 add esp,20h	  ; Очищаем стек