修改密码，但运行时总是显示原始密码错误，就算输入正确的密码也是这样

各位大大，帮忙看看：
数据表：table1     用户名字段：hy   密码字段：code（表中只有这两个字段，且现在只有1条数据，hy为guest code为123）
edit1 原始密码  edit2 edit3都是修改后的密码
combobox1 用户名
代码本身也是从其他帖子上找到的，但是运用在我的程序上使用却总是出现这样的问题，希望各位大大帮帮忙。
procedure TForm6.Button1Click(Sender: TObject);   var YSmima:string;
begin
  if edit2.Text<>edit3.Text then
  begin
  messagebox(handle,'确认码不正确，请检查!','提示',MB_OK+MB_ICONERROR);
  edit3.SetFocus;
  edit3.SelectAll;
  exit;
  end;
  //先查询出来原始密码，然后进行对比
  with adoquery1 do
  begin
  close;
  sql.Clear;
  sql.Add('select * from table1 where yh='''+copy(combobox1.Text,1,6)+'''');
  open;
  YSmima:=fieldbyname('code').AsString;
  end;  if Edit1.Text<>YSmima then
  begin
  messagebox(handle,'原始密码输入不正确!','提示',MB_OK+MB_ICONinformation);
  Exit;
  end;  with adoquery1 do
  begin
  close;
  sql.Clear;
  sql.Add('select * from table1 where yh='''+copy(combobox1.Text,1,6)+'''');
  open;
  Edit;
  fieldbyname('code').AsString:=edit2.Text;
  post;
  messagebox(handle,'密码修改成功!','提示',MB_OK+MB_ICONinformation);
  end;
end;
end.