Como localizar registro para não gravar 2 vezes com Locate..

procedure TfrmCadSeqProducao.CdsCadSeqProducaoOS_NUMValidate(Sender: TField);
var
  vCdsCadSeqProducao: TClientDataSet;
  vCdProduto: String;
begin
  inherited;
  vCdsCadSeqProducao := TClientDataSet.Create(Self);
  vCdsCadSeqProducao.CloneCursor(CdsCadSeqProducao, False);
  try
    if vCdsCadSeqProducao.Locate(´OS_NUM´, Sender.AsString, []) then
      raise EErro.Create(´OS já digitada!´);
  finally
    FreeAndNil(vCdsCadSeqProducao);
  end;
end;

procedure TfrmCadSeqProducao.CdsCadSeqProducaoOS_NUMValidate(Sender: TField);
var
  vCdsCadSeqProducao: TClientDataSet;
  vCdProduto: String;
begin
  inherited;
  //cria o clientDataSet em tempo de execução
  //troquei o self por nil pois quem vai controlar a destruição dele é vc mesmo, la no finally
  //vCdsCadSeqProducao := TClientDataSet.Create(self);
  vCdsCadSeqProducao := TClientDataSet.Create(NIL);
  //Cria um clone do cursor do ClientDataSet CdsCadSeqProducao
  vCdsCadSeqProducao.CloneCursor(CdsCadSeqProducao, False);
  try
  //não sei se é necessario isso aqui antes do locate, mas ja tive problemas, então eu sempre faço um First antes
  vCdsCadSeqProducao.first;

    //aqui ele localiza o registro
    if vCdsCadSeqProducao.Locate(´OS_NUM´, Sender.AsString, []) then
      //raise EErro.Create(´OS já digitada!´);
      //Não acho elegante ficar criando exception a toa. qdo é apenas p notificar o usuario
      showmessage(´OS já digitada!´);
  finally
    //aqui libera o componente criado em tempo de execução
    FreeAndNil(vCdsCadSeqProducao);
  end;
end;