Вставка и редактирование записей таблицы

 ADOQuery1.Parameters.ParamByName(‘Department’).Value:=Integer(DBComboBoxEh1.Items.Objects[i]);

If ADOQuey1.Modifed Then ADOQuery1.Post

procedure TForm1.Button1Click(Sender: TObject);
begin
  with ADOQuery1 do
    begin
      Close;
      SQL.Text := 'INSERT INTO My_Table(Surname, Name, Patr, Dep) VALUES(:p1, :p2, :p3, :p4)';
      Parameters.ParamByName('p1').Value := Edit1.Text;
      Parameters.ParamByName('p2').Value := Edit2.Text;
      Parameters.ParamByName('p3').Value := Edit3.Text;
      Parameters.ParamByName('p4').Value := ComboBox1.Items[ComboBox1.ItemIndex];
      ExecSQL;
    end;
end;

Parameters.ParamByName('p4').Value := ComboBox1.ItemIndex;

ADOQuery1.Parameters.ParamByName(‘Department’).Value := DBComboBoxEh1.ItemIndex;

ADOQuery1.Parameters.ParamByName(‘Department’).Value := Integer(DBComboBoxEh1.Items.Objects[DBComboBoxEh1.ItemIndex]);

if ADOQuery.Insert then...

ADOQuery1.Parameters.ParamByName('Department').Value := Integer(DBComboBoxEh1.Items.Objects[DBComboBoxEh1.ItemIndex]);

var
Q: TAdoQuery;
...
if frmEdit.EditMode 
then begin
       Q.SQL.Text := 'update AnyTable set AnyField=:AnyField where ID=:ID'
       Q.Parameters.ParamValues['AnyField']  := frmEdit.Edit1.Text;
       Q.Parameters.ParamValues['ID']  := AdoQuery['ID'];
       end
else  begin
       Q.SQL.Text := 'insert AnyTable (AnyField) values(:AnyField)'
       Q.Parameters.ParamValues['AnyField']  := frmEdit.Edit1.Text;
       end;
Q.ExecSQL;