[Sveta22]

Добрый день. Есть база данных, есть DBEdit в котором нужно отоброжать дату (маску ввода), с помощью DateTimePicker я вывожу дату вот код

Код:

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
 tblBase.Edit;
 DBEdit9.Text:=DateToStr(DateTimePicker1.Date);
 tblBase.Post;
end;

procedure TForm1.DBEdit9Change(Sender: TObject);
begin
 DateTimePicker1.Date:=StrToDate(DBEdit9.Text);

end;

Выходит ошибка если даты нет в базе is not a valid date, подскажите как обойти это?