var
sum:double;
begin
if not (ado_table1.isempty) then begin
  sum:=0;
  ado_table1.first;
  repeat
   sum=sum+ado_table1['quantity'].asDouble;
   ado_table1.Next;
  until ado_table1.Eof;
  ShowMessage('End Of File');
 end;
end;