DL>код покажи

В свойстве SQL компонента ADOQuery пишу следующее:

INSERT INTO table(surname , name, patronymic,
department, act_number, data)
VALUES(:surname , :name, :patronymic,
:department, :act_number, :data)


При нажатии кнопки

DM.quInsertInfo.Close;
DM.quInsertInfo.Parameters.ParamByName('surname').Value := edSurname.Text;
DM.quInsertInfo.Parameters.ParamByName('name').Value := edName.Text;
DM.quInsertInfo.Parameters.ParamByName('patronymic').Value := edPatronity.Text;
DM.quInsertInfo.Parameters.ParamByName('department').Value := edDepartment.Text;
DM.quInsertInfo.Parameters.ParamByName('act_number').Value := edActNumber.Text;
DM.quInsertInfo.Parameters.ParamByName('data').Value := edDate.Date;
DM.quInsertInfo.ExecSQL;