How to achieve, click on the button, the watch to the increase in the number of table B,
Procedure TMain. BitBtn1Click (Sender: TObject);
The begin

end;
The same goods by coding, coding, is added to the inventory according to the amount of purchase, such as notebook, increase number is 7,