[Karsh]

А где вы вызываете эту процедуру? В юните или в самом проекте?
И лучше переименовать ее на что-нибудь другое, т.к. "date" – уже зарезервированное имя, и программа может вызвать не вашу процедуру, а другую