Преобразовать дату в числовой формат. условие и цель : пользователь вводит дату в формате ‘dd.mm.’, которая присваивается строчной переменной s. необходимо преобразовать строку в запись d, имеющую три числовых поля – day, month, year

Lazarus(delphi):
type
 d=record
 m1, d1, y1: integer;
end;

var s: string; d1: TDateTime;
begin
s:=edit1.text; (read(s));
d1:=strtoDate(s);
DecodeDate(d1, d[y1], d[m1], d[d1]);
end;