procedure TForm1.ButtonAddClick(Sender:TObject); begin Table1.Add; FormEditTable.Showmodal; if FormEditTable.ModalResult=mrOk then Table1.Post else Table1.Cancel; end;