Calcular dias no oncalfields

Como calcular os dias entre duas datas, posso criar variáveis dentro do oncalcfields ou tenho que criar no New field

procedure TConsInscricao.TblInscricaoCalcFields(DataSet: TDataSet);
var
dias : real;
data1, data2 : TDateTime;
begin
begin
edit1.Text:=datetostr(now);
end;
begin
data1 := strtodate(edit1.Text);
data2 := strtodate(DBedit2.text);
dias := data1 - data2;
label8.caption := FloatToStr(Dias) + ´ dias.´;
end;