Секундомер и delay, от чего зависит задержка? Опции

[cooler]

Есть секундомер
Но что-то он сильно быстро бегает.
В чём может быть проблема?

Код

uses crt;

function Zero (i: integer): string;
var
     s: string[2];
begin
     str (i, s);
     if i < 10 then
          s := '0' + s;
     Zero := s;
end;

procedure ShowTime (t: word);
var
     mm, ss: word;
begin
     mm := t div 60;  { целое кол-во при делении на 60 секунд }
     ss   := t mod 60; {остаток от деления на 60 секунд }
    
     write (mm:2, ':', Zero(ss): 2);
end;

var
     elapsed: word; {истёкшее время}
    
begin
     elapsed := 0;
     while Not Keypressed do
     begin
          inc (elapsed);
          delay (1000); {1 sec = 1000 msec}
          clrscr;
          ShowTime (elapsed);
     end;
end.