procedure TForm1.BitBtn5Click(Sender: TObject); begin table1.Post; dbedit1.Clear; dbedit2.Clear; end; End.