COMPARANDO CAMPOS EM DUAS TABELAS

BOA TARDE PESSOAL TO O USANDO  SEGUINTE CODIGO PARA PROCURAR NA TABELA CLIENTE E CLIENTEPRODUDO  OS CODIGO DOS CLIENTES QUANDO IGUAIS ELE VAI EFETUAR A BUSCA NA TABELA CLIENTEPRODUTO  VERIFICANDO SE O CLIENTE COM  JA TEM UM PRODUTO JA CADASTRADO ... SE NAO TIVER..... ELE. VAI INSERIR O PRODUTO PARA O MESMO  
beginIF  TBLCLIENTEPRODUTO.FieldByName('CDCLIENTE').Value = TBLCLIENTE.FieldByName('CDCLIENTE').Value then BEGIN      TBLCLIENTEPRODUTO.FindKey([DBEDIT13.Text]);// FAZ A BUSCA NA TBLCLIENTEPRODUTO PELO CODIGO       SHOWMESSAGE('ESTE CLIENTE JA POSSUI ESTE PRODUTO');      TBLCLIENTEPRODUTO.Cancel; //CANCELA O POST DO PRODUTO ...       ENDELSE BEGINTBLCLIENTEPRODUTO.EDIT;TBLCLIENTEPRODUTO.insert;TBLCLIENTEPRODUTO.FieldByName('CDPRODUTO').Text:=DBEDIT13.Text;TBLCLIENTEPRODUTO.FieldByName('NOME_PRODUTO').TEXT:=DBEDIT14.Text;TBLCLIENTEPRODUTO.post;TBLCLIENTEPRODUTO.Refresh;end;END;MAS MESMO COM O GRID VAZIO OU JA COM UM PRODUTO COM CODIGO DIFERENTE DA A MENSAGEM QUE O CLIENTE JA  CONTEM O PRODUTO CADASTRADO ..