Tried running and I got this:

Error: Duplicate declaration "AddDTM" at line 164
Compiling failed.

Here's line 164: function AddDTM(DTM : TDTM) : integer;