Рассчет суммы чисел в эдитах по клику на кнопке

[beso]

спасиба всех ребиата. проблема сам решил.

//=================================== =================================== ======//

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
DaysToCalculatePercent: Integer;
PercentIn10: Double;
N: Integer;
CalcDate: TDateTime;
S: string;
begin
DaysToCalculatePercent := 10;
Percentin10 := 10.0;
CalcDate :=NOW;
Screen.Cursor :=crHourGlass;
ADOTable1.DisableControls;
try
S := ADOTable1.Bookmark;
ADOTable1.First;
while not ADOTable1.EOF do begin;

//------------------------------------------------------------------------------------------------//
N := 0;
if CalcDate > ADOTable1.FieldByName('data').AsDat eTime then
N := DaysBetween(CalcDate, ADOTable1.FieldByName('data').AsDat eTime) div DaysToCalculatePercent;
//------------------------------------------------------------------------------------------------//

ADOTable1.Edit;
ADOTable1.FieldByName('Procent').As Float := ADOTable1.FieldByName('Suma').AsFlo at*N* PercentIn10/100.0;
ADOTable1.FieldByName('Itogo').AsFl oat := ADOTable1.FieldByName('Suma').AsFlo at + ADOTable1.FieldByName('Procent').As Float;
ADOTable1.Next;
end; //while
finally
ADOTable1.Bookmark := S;
ADOTable1.EnableControls;
Screen.Cursor := crDefault;
end;

end;