Аналитическое дифференцирование / TIMER

Unit Timer;

  Interface

    var
      TicNum1,Ticker : Longint;
      Run : Boolean;

    Procedure StartTimer;
    Procedure StopTimer;
    Procedure Wait(TicWait:Integer);
    Function TimeRes:LongInt;
    Function CurMom:LongInt;

  Implementation



    Procedure StartTimer;
      begin
        TicNum1 := MemL[$0040:$006C];
        Run := true
      end;

    Procedure StopTimer;
      begin
        If Run then
          begin
            Ticker := MemL[$0040:$006C] - TicNum1;
            TicNum1 := 0;
            Run := false
          end
      end;

    Function CurMom:LongInt;
      begin
        If Run then
          CurMom := MemL[$0040:$006C] - TicNum1
      end;

    Function TimeRes:LongInt;
      begin
          TimeRes := Ticker
      end;

    Procedure Wait(TicWait:Integer);
      var
        T1:LongInt;
      begin
        T1 := MemL[$0040:$006C];
        while MemL[$0040:$006C] < T1 + TicWait do;
      end;

  begin

    Run := false;
    TicNum1 := 0;
    Ticker := 0;

  end.