[heavytresh]

аааа все все, недописала
Edit7.Text := datetimetostr(Strtodatetime(Edit7.Text));