请教！！！！！(0分)

以下是修改密码的程序，但去不能修改，请各位大侠看看？谢谢
if edit2.Text=edit3.Text then
begin
query1.close;
query1.SQL.Clear;
query1.sql.add('update password set name='+#39+edit1.text+#39+',mima='+#39+edit2.text+#39+'');
query1.execsql;
edit1.clear;
edit2.clear;
edit3.clear;
messagedlg('口令修改成功！',mtinformation,[mbok],0);
self.hide;
end
else
begin
messagedlg('两次密码不符，请重新输入！',mterror,[mbok],0);
edit2.clear;
edit3.clear;
end;

query1.Close;
query1.Params[0].AsString:=combobox1.Text;
query1.Params[1].AsString:=edit1.Text;
query1.Open;
if (query1.RecordCount<>1) or (edit1.Text<>query1.FieldValues['密码']) then
messagedlg('用户名或密码错误，请重新输入！',mtwarning,[mbok],0)
else
begin
if edit2.Text<>edit3.Text then
messagedlg('密码不一致！',mtwarning,[mbok],0)
else
begin
query1.Edit;
query1.FieldValues['密码']:=edit3.Text ;
query1.Post ;
showmessage('密码修改成功');
close;
end;
end;