问题在于
try
query1.open;
except
query1.execsql;
end;
应改成
try
query1.execsql;
except 
showmessage('数据库提交失败');
end;