2. Пусть в переменной s хранится ваша дата. Разберем ее на составляющие.
PosDot:=Pos('.',s); {Ищем позицию точки в строке}
YearStr:=Copy(s,1,PosDot-1); {выделяем подстроку с первого символа в количестве PosDot-1 символ}
val(YearStr,Year,error); {преобразовываем стоку в число}
delete(s,1,PosDot); {удаляем обработанную подстроку вместе с точкой}

Аналогично выделяется месяц, а день - это то, что останется.


Дальше справитесь?