Запрос на добавление

ADOTable1.insert;
ADOTable1name.value:=Edit1.text;
ADOTable1.post;
ADOTable1.Active:=False;
ADOTable1.Active:=true;

d:=Edit4.Text+'.'+Edit5.Text+'.'+Edit6.Text;
 dm.ADOQuery1.Insert;
 DM.ADOQuery1fio.Value:=Edit1.Text+'  '+Edit2.Text+'  '+Edit3.Text;
 DM.ADOQuery1tel.Value:=StrToInt(edit7.Text);
 DM.ADOQuery1kod.Value:=StrToInt(edit8.Text);
 Dm.ADOQuery1dob.Value:=strtodate(d);
 dm.ADOQuery1.Active:=false;
 dm.ADOQuery1.Active:=true;

//делаем добавление в бд
procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1.Close; // закрываем запрос
  ADOQuery1.SQL.Clear; // очищаем все что было до этого
  ADOQuery1.SQL.Add('INSERT INTO table_name(name, age) VALUES(:name, :age)'); // делаем запрос на добавление параметров
  ADOQuery1.Parameters.ParamByName('name').Value := 'Петро'; // добавляем параметр, в этом случае это имя, строка
  ADOQuery1.Parameters.ParamByName('age').Value := 45;      // тут тоже параметр возраст, число
  ADOQuery1.ExecSQL; // выполняем запрос
end;
//считываем значения из бд в переменные для дальнейших операций, иначе зачем там данные хранить
procedure TForm1.Button2Click(Sender: TObject);
var name: String;
    age: Integer;
begin
  ADOQuery1.Close; // открываем
  ADOQuery1.SQL.Clear; // очищаем
  ADOQuery1.SQL.Add('SELECT name, age FROM table_name WHERE name = :name'); //выбираем с таблицы, при критерию поиска имя
  ADOQuery1.Parameters.ParamByName('name').Value := 'Петро'; // что именно ищем, по какому имени выбрать из таблицы значения
  name := ADOQuery1.FieldValues['name']; // сохраняем значение в перменную, строка
  age := StrToInt(ADOQuery1.FieldValues['age']); // сохраняем возраст в перменную, число
  ADOQuery1.Open; // открываем бд
end;

 with TADOCommand.Create(nil) do
    try
      Connection := <ссылка на TADOConnection>
      CommandText := 'NSERT INTO Personal (Familia,Name,BurnDate...) '+
                              ' VALUES          (:pFamilia,:pName, :pBurnDate,...)';
      Parameters.ParamByName('pFamilia').Value := Edit1.Text;
      Parameters.ParamByName('pName').Value := Edit2.Text;
      Parameters.ParamByName('pBurnDate').Value := DateTimePicker1.Date;
      ...
      Execute;
    finally
      Free;
    end;

 with ADODataSet do
    begin
      DisableControls;
      Tag := Fields[0].AsInteger;
      Close;
      Open;
      Locate(Fields[0].FieldName,Tag,[]);
      EnambleControls;
    end;