Как правильно организовать добавление, редактирование записи и сохранение

procedure TForm1.bbEditClick(Sender: TObject);
begin
  Edit1.Enabled := True;
  bbSave.Tag := 1;
end;
 
procedure TForm1.bbNewClick(Sender: TObject);
begin
  Edit1.Text := '';
  Edit1.Enabled := True;
  bbSave.Tag := 2;
end;
 
procedure TForm1.bbSaveClick(Sender: TObject);
begin
  if bbSave.Tag =1 then
  begin
    ADOQuery1.Active := False;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('Update table1 set pole1 = ' + '''' + Edit1.Text + '''');
    ADOQuery1.ExecSQL;
  end;
  if bbSave.Tag =1 then
  begin
    ADOQuery1.Active := False;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('Insert into table1 (pole1) values (' + '''' + Edit1.Text + ''''+ ')');
    ADOQuery1.ExecSQL;
  end;
  bbSave.Tag := 0;
  Edit1.Enabled := False;
  ADOQueryDBGrid.Active := False;
  ADOQueryDBGrid.Active := True;
end;
 
procedure TForm1.bbCancelClick(Sender: TObject);
begin
  bbSave.Tag := 0;
  Edit1.Enabled := False;
  ADOQueryDBGrid.Active := False;
  ADOQueryDBGrid.Active := True;
end;

if (Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'') and (Edit4.Text<>'') then //проверяем введены ли значения в Едиты, если введены, то
begin
Form1.DataSource2.DataSet.Insert; //вставляем новую запись
Form1.DataSource2.DataSet.FieldByName('column1').Value:=Form4.Edit1.Text; //column - это название столбца в таблице
Form1.DataSource2.DataSet.FieldByName('column2').Value:=Form4.Edit2.Text;
Form1.DataSource2.DataSet.FieldByName('column3').Value:=Form4.Edit3.Text;
Form1.DataSource2.DataSet.FieldByName('column4').Value:=Form4.DBLookupComboBox1.Text;
Form1.DataSource2.DataSet.FieldByName('column5').Value:=Form4.Edit4.Text;
Form1.DataSource2.DataSet.Post;
end
else begin
           MessageDlg('Заполните все поля!',mtWarning, [mbOK], 0)
end;