не добавляется строка в таблицу sotrudniki, sql

procedure TForm4.Button1Click(Sender: TObject);

begin

with adoquery1 do begin

close;

sql.Clear;

sql.Add('insert into sotrudniki (name_sotrud, surname_sotrud,patronumic_sotrud,salary_sotrud,position_sotrud)');

sql.Add('values ('''+edit1.text+''','''+edit2.text+''','''+edit3.text+''','''+edit4.text+''','''+edit5.text+''')');

execSQL;

end;

Datamodule2.ADOQuery2.Close;

Datamodule2.ADOQuery2.Open;

end;