[Aristarh Dark]

Код:

procedure addtotable
var
  C:TADOQuery
begin
  C:=TADOQuery.Create(nil);
  with C do
    begin
      Connection:=MainConnection; //твое соединение с базой
      SQL.Text:='UNSERT INTO [Таблица 1] (Name, Position, Birth_date) '+
                     'VALUES (:Name, :Position, :Birth_date)';
      Parameters.ParseSQL(SQL.Text,True);
      Parameters.ParamByName('Name').AsString:=Edit2.Text;
      Parameters.ParamByName('Position').AsInteger:=StrToInt(Edit3.Text);
      Parameters.ParamByName('Birth_date').AsDateTime:=StrToDate(Edit4.Text);
      try
        ExecSQL;
      except
        ShowMessage('Error');
      end;
    end;
  C.Free;
end;

Примерно так