อยากรู้โค้ดเพิ่มข้อมูล2ตารางในปุ่มเดียว

*ตัวอย่างโค้ดเพิ่มข้อมูลแบบตารางเดียว
*ตาราง1=data
*ตาราง2=data1
begin
with data do
begin
try
data.Insert;

FieldByName('s1_name').AsString := txtname.Text;
FieldByName('s1_number').AsString := txtnumber.Text;
FieldByName('s1_salesprice').AsString := txtsalesprice.Text;
FieldByName('s1_sumprice').AsString := txtsumprice.Text;
FieldByName('s1_total').AsString := txttotal.Text;
FieldByName('s1_day').AsString := datetostr(datetimepicker1.Date);
FieldByName('s1_time').AsString := TimetoStr(now);


data.Post;
data.Refresh;

Messagedlg(' เพิ่มสินค้า ',mtConfirmation,[mbOk],0);
//cmdClearClick(Sender);
//txtname.SetFocus;
//cmdClear.Enabled :=False;

Except
cancel;
//messagedlg('เพิ่มไม่ได้',mtError,[mbOk],0)
end;
end;

end;