Ajuda comparação ListBox com dados Tabela

Pessoal boa tarde...

Estou com um desafio e gostaria de dica para eu fazer da melhor forma possível...

Tenho uma ListboxA temporária (está oculta) com vários registros, e os dados dessa listboxA tem que ir para uma listboxB padrão que o usuário vai visualizar.

Só que também tenho um select com vários registros, a listboxB só pode receber o item da listboxA quando encontrar o mesmo registro.

O jeito que eu pensei? (Dessa forma está funcionando, só queria melhorar o código)

for I := 0 to lstxml.Items.Count - 1 do begin
while not DM.SqlAux.Eof do begin
if (Pos(lstxml.Items[i], DM.SqlAux.FieldByName('CHAVE').AsString+'-cte.xml') > 0) then begin
lstArq.Items.Add(lstxml.Items[i]);
DM.SqlAux.Next;
end
else begin
DM.SqlAux.Next;
end;
end;
DM.SqlAux.First;
end;

Teria um jeito mais fácil?

Grato,
Wagner