исправил.
уберите двоеточие в условиии
(извиняюсь не заметил при копипасте из вашего)
исправил.
уберите двоеточие в условиии
(извиняюсь не заметил при копипасте из вашего)
case select of
0: th := t#1s;
1: th := t#1m:
2: th := t#1h;
3: th := t#1d;
end_case;