Вычисляемые поля

[Defort]

Господа программисты, помогите пожалуйста мне, новичку, с базами данных MS Access. Задача такая: определить количество пени. Для этого нужно за каждый день просрочки начилять пени. ПРоблема в том, что если фактической даты платежа не существует, то я присваиваю переменной, содержащей эту дату текущую дату, высчитываю количество дней между 2-мя датами и по формуле начилсяю пени, причем коэффициент пени берется из другой таблицы (может в этом ошибка).

Проблема в том, что при любом раскладе пени равны нулю после расчетов. При трассировке заметил, что переменная k (дни между датами) очень большая - я не дождался выхода из цикла. Возможно проблема в этом.

Собственно код:

procedure TDataModule1.ADOTable3CalcFields(Da taSet: TDataSet);
var
dmust, dfact: TDateTime;
i, k: word;
peni, ostatok, cost, get: real;
begin
dmust:=DataModule1.ADOTable3DSDesig ner.AsDateTime;
dfact:=DataModule1.ADOTable3DSDesig ner9.AsDateTime;
if dfact<ADOTable1DSDesigner3.AsDateTi me then
dfact:=now;
cost:=DataModule1.ADOTable3DSDesign er2.AsCurrency;
get:=DataModule1.ADOTable3DSDesigne r7.AsCurrency;
k:=DaysBetween(dmust, dfact);
for i:=1 to k do
peni:=peni+ADOTable1DSDesigner5.AsF loat*cost;
ostatok:=cost+peni-get;
DataModule1.ADOTable3DSDesigner3.Va lue:=peni;
DataModule1.ADOTable3DSDesigner5.Va lue:=ostatok;
if ostatok=0 then
DataModule1.ADOTable3DSDesigner4.Va lue:=true
else DataModule1.ADOTable3DSDesigner4.Va lue:=false;
end;

Да, и заодно: как при трассировке смотреть текущие значения переменных?