Locate com Loop

E ai gente fiz essa procedure ai em baixo que faz seguinte ela compara se o valor 1 existe na tabela.

Agora ja tentei de todo geito a fazer o seguinte.

Tabelas

Tab01
Cod
Nome

Tab02
Cod
Nome

Taberros

Preciso mudar esse meu codigo abaixo pra pegar o cod ta Tab01 e ver se tem na Tab02, se naum tiver ele pega o cod da Tab01 e joga na Taberros, assim eu saberei o codigos que existem na tab01 e naum existem na Tab02.

Segue aqui o Codigo anterio que fazia comparação preciso altera-lo e naum acertei.

procedure TForm1.Button1Click(Sender: TObject);
begin
qrySemValor.First;
while (not qrySemValor.Eof) do
begin
qryComValor.First;
while (not qryComValor.Eof) do
begin
if (qrySemValor.FieldByName(´Inscricao´).Value = qryComValor.FieldByName(´Inscricao´).Value) then
begin
qrySemValor.Edit;
qrySemValor.FieldByName(´Valor´).Value := qryComValor.FieldByName(´Valor´).Value;
qrySemValor.Post;
end;
qryComValor.Next;
end;
qrySemValor.Next;
end;
end;