Ненадо забывать о преобразовании типов, у вас передается WORD а тип даных на входе таймера TIME надо сделать типо:

timvalue := WORD_TO_TIME ( comreg1 * 1000 );

на тыщу домножыть сразу секунды получим.