DBEdit组件的问题

大家帮我看看下面的过程子函数，能编译通过，可是它的功能好像不能实现，当DBEdit6中的课程代号CNo在数据表中不存在时，也能显示修改成功，还有当CNo不存在时，按了修改也不会显示ShowMessage('无此记录！');我查了好久都不知问题出在哪里，是不是那个DBEdit用错了呀？？
procedure TDataUpdateForm.BitBtn6Click(Sender: TObject);
begin
  With UpDateDataModule.CourseTable do
  begin
    if DBEdit6.Text='' then
    begin
      ShowMessage('请输入要修改的课程代号！');
      DBEdit6.SetFocus;
      Exit;
    end;
    if not Locate('CNo',VarArrayOf([DBEdit6.Text]),[loPartialKey]) then
    begin
      ShowMessage('无此记录！');
      Exit;
    end;
      Edit;
      FieldByName('CNo').AsString:=DBEdit6.Text;
      FieldByName('CName').AsString:=DBEdit7.Text;
      FieldByName('TCTime').AsString:=DBEdit8.Text;
      Post;
      ShowMessage('修改成功！');  end;
end;