procedure TForm4.DBGridCellClick(Column: TColumn);
begin
with adoquery1 do
begin
open;
edit1.Text:=FieldByName('编号').AsString;
edit2.Text:=FieldByName('姓名').AsString;
edit3.Text:=FieldByName('性别').AsString;
DateTimePicker1.Date:=FieldByName('出生日期').AsDateTime;
edit4.Text:=FieldByName('年龄').AsString;
edit5.Text:=FieldByName('籍贯').AsString;
edit6.Text:=FieldByName('民族').AsString;
edit7.Text:=FieldByName('文化程度').AsString;
edit8.Text:=FieldByName('姓名编号').AsString;
edit9.Text:=FieldByName('健康状况').AsString;
edit10.Text:=FieldByName('身份证号').AsString;
edit11.Text:=FieldByName('毕业学校').AsString;
edit12.Text:=FieldByName('手机号码').AsString;
edit13.Text:=FieldByName('家庭住址').AsString;
edit14.Text:=FieldByName('工作单位').AsString;
edit15.Text:=FieldByName('工作部门').AsString;
edit16.Text:=FieldByName('所任职务').AsString;
edit17.Text:=FieldByName('所属行业').AsString;
edit18.Text:=FieldByName('所属专业').AsString;
end;
end;

其中时间控件
DateTimePicker1.Date:=FieldByName('出生日期').AsDateTime;
出错

报什么错？