Datas e DBEdit

var venc, Pagto: Tdate;

 difdias :double;

begin

 venc:=StrToDate(data1.Text);

 Pagto:=StrToDate(data2.Text);

 difdias :=trunc((pagto - venc));

 Label1.Caption:=FloatToStr(difdias);

Gostaria que o terceiro dbedit recebesse o valor do Label1 ou diretamente a diferença das datas