> -- Александр Ильин писал(а):
> Объявите на них указатель, и пользуйтесь.TYPE MyDate = POINTER TO Dates.Date.

Один раз проинициализировать дату - необоснованный мусор в куче. А завести вместо статической даты динамическую структуру во всех сырцах - это "обосновано" и не мусор. Я, пожалуй, пойду чайку лучше попью