Не получается подсчитать остаток

[Chicharrr]

Пытаюсь так. Есть таблица VipiskaDEB в нее данные загружаются из типизированного файла. нужно подсчитать остаток средств .В таблице есть поля сумма поступивших средств и сумма выбывших.Начальный остаток ввожу из Edit.использую Access +ADo.Пыталась так делать.но выдает ошибку .

[Fatal Error] Unit6.pas(78): Program or unit 'Unit6' recursively uses itself

вот код

procedure TForm6.Button1Click(Sender: TObject);

var
 ost: Currency;

 nachost:Currency;
begin
DataModule2.VipiskaDEB.Filter:='Дата='+ DateToStr(DateTimePicker1.Date) + '';
DataModule2.VipiskaDEB.Filtered:=true;
nachost:=StrToCurr(Edit2.text);
ost:=0;

 while not DataModule2.VipiskaDEB.Eof do begin
ost:=nachost-DataModule2.VipiskaDEB.FieldByName('sumspis').AsCurrency+DataModule2.VipiskaDEB.FieldByName('sumpos').AsCurrency;


    DataModule2.VipiskaDEB.Next;
end;

[FullVenic]

ну и что дальше?

[ViktorR]

Только как замечание:
Этот код не содержит нумерации строк. В этом коде есть 78-я строка из Unit6.pas ?

Ошибка связана с тем, что в программе используется рекурсивное обращение к самой себе, что недопустимо.

[Chicharrr]

Сообщение от ViktorR

Только как замечание:
Этот код не содержит нумерации строк. В этом коде есть 78-я строка из Unit6.pas ?

Ошибка связана с тем, что в программе используется рекурсивное обращение к самой себе, что недопустимо.

Ошибку я убрала.когда подсчет остатка убрала. Может вы подскажите как его лучше всего подсчитать.Таблицы остатки преподаватель сказал в БД не должно быть.

Мне кажетса.что ошибка моя в том что сумму денежную нужно вводить через маску ввода . Только вот что не ищу как это сделать.все очн не понятно(