Спасибо мен и на этом, но тут возникла проблема. Задание выполняется в консольном приложении, тоесть без всяких компонентов, а там прога уже начинает ругаться с tdate Да и нельзя использовать процедуру, потому как процедуры и функции не были пройдены, препод не поймет просто как я сделал...