DBGrid数据赋值问题！

Question

我现在要将DBGrid的数据赋值到文本控件中去，这些都没问题，但是日期赋值过去的时候有点问题。大家看一下我的代码：
procedure Tddfform.DBGrid1CellClick(Column: TColumn);
begin
if adoquery1.recordcount<>0 then
begin
edit1.text := adoquery1.fieldbyname('pjbh').value;
edit2.text := adoquery1.fieldbyname('pjmc').value;
edit3.text := adoquery1.fieldbyname('pjgg').value;
edit4.text := adoquery1.fieldbyname('dw').value;
edit5.text := adoquery1.fieldbyname('dj').value;
edit6.text := adoquery1.fieldbyname('sl').value;
edit7.text := adoquery1.fieldbyname('zj').value;
edit8.text := adoquery1.fieldbyname('bm').value;
edit9.text := adoquery1.fieldbyname('lyr').value;
DateTimePicker3 := adoquery1.fieldbyname('llrq').value;//这一行提示错误信息：Incompatible types: 'Tdatetimepicker' and 'Variant'
edit11.text := adoquery1.fieldbyname('czy').value;
edit12.text := adoquery1.fieldbyname('bz').value;
end;

Answer 1

DateTimePicker3.date := strtodatetime(adoquery1.fieldbyname('llrq').asstring);

Answer 2

DateTimePicker3.datetime := strtodatetime(adoquery1.fieldbyname('llrq').asstring);