Comparação de tabelas

Olá amigos...

estou precisando comparar duas tabelas: DadosBB e Negociacao, comparando os campos: CDC e Entrada, se os valoes forem iguais deve ser colocado no campo STATUS de Negociacao = 'SIM', se forem diferentes, pode ficar em branco mesmo...

Fiz um código, mas que dá errado em alguns valores...

Por favor, se alguém puder ajudar fico muito grata.

procedure TFormArquivoTxt.BitBtnComparaTabelasClick(Sender: TObject);
begin

AdoTableDadosBB.First;
 while (not AdoTableDadosBB.Eof) do
 begin
 AdoTableNegociacao.First;
 while (not AdoTableNegociacao.Eof) do
 begin

 if ((AdoTableNegociacao.FieldByName('CDC').Value = AdoTableDadosBB.fieldByName('CDC').Value) and
	(AdoTableNegociacao.FieldByName('Entrada').Value = AdoTableDadosBB.fieldByName('Entrada').Value)) then
 begin
 AdoTableNegociacao.Edit;
 AdoTableNegociacao.FieldByName('STATUS').Value := 'SIM';
 AdoTableNegociacao.Post;
 end;
 AdoTableNegociacao.Next;
 end; // fim do 2o while
 AdoTableDadosBB.Next;

 end; // fim do 1o while

 ShowMessage('Tabela Comparada.');
end;