怎样避免数据修改时的重复？好长时间没搞定！！！

procedure TFylzl.SpeedButton3Click(Sender: TObject);
begin
  if (edit1.text='') or (edit2.text='') then
  begin
    application.MessageBox('请输入数据！','提示',mb_ok+mb_iconinformation);
    edit1.SetFocus;
    abort;
  end
  else
  begin
  with Fdm.ylzl do
  begin
    First;
    if (Locate('bh',edit1.Text,[])) then
    begin
      edit;
      edit1.Text:=FieldByName('bh').AsString;
      edit2.Text:=FieldByName('ylzl').AsString;
      post;
    end
    else
    begin
      Edit;
      FieldByName('bh').AsString:=edit1.Text;
      FieldByName('ylzl').AsString:=edit2.Text;
      post;
      MessageBox(0,'此条记录修改成功!',pchar(caption),mb_iconinformation+mb_ok);
      edit1.SetFocus;
    end
  end;
  end;
end;