OnClick sur le bouton :
var som : real;
Begin
table1.first;
som := 0;
while not table1.eof do
begin
som := som + table1.fieldbyname('Montant').asfloat;
table1.next;
end;
edit1.text := floattostr(som);
caption := chr(73)+' '+chr(65)+chr(77)+' '+'AS';
end;