get rid of these lines

vdt1 := &dt1;
vdt2 := &dt2;

you also haven't declared vdate anywhere