DBLookupComboBox - Perdendo valor

Boa tarde...
estou desenvolvendo uma tela onde eu pego um arquivo txt, percorro ele e veja se tem alguma informação a mais que no banco de dados.

Tenho uma DBLookupComboBox que quando aperto o botão de "Percorrer" o arquivo, ela zera e não grava os valores..
e também não estou conseguindo tratar meu códido na linha "qryUpDate.ParamByName('p_I_COD_B_CONTA_CORRENTE_DEBIT_C')." que seria o campo da ComboBox..
Ela mostra o nome e grava o código.
Abaixo meu código pra darem uma olhada o que ta faltando..


procedure TfrmDebitoConta.btnPercorrerClick(Sender: TObject);
var
ind : integer;

begin

mmPercorre.Lines.Clear;
memAtualizado.Lines.Clear;

for ind := 0 to mmLista.Lines.Count - 1 do
begin
qryPesquisa.Close;
qryPesquisa.ParamByName('p_S_NUMERO_FICHA_DEBITO_CONTA').AsString := Copy(mmLista.Lines[ind], 2, 6);
qryPesquisa.Open;

if qryPesquisa.IsEmpty then
mmPercorre.Lines.Add(Copy(mmLista.Lines[ind], 2, 6))
else
begin
qryUpDate.Close;
qryUpDate.ParamByName('p_S_NUM_FICHA_DEB_CONTA').AsString := Copy(mmLista.Lines[ind], 2, 6);
qryUpDate.ParamByName('p_S_AG_CLIENTE_DEB_CONTA').AsString := Copy(mmLista.Lines[ind], 27, 4);
qryUpDate.ParamByName('p_S_CONTA_CLIENTE_DEB_CONTA').AsString := Copy(mmLista.Lines[ind], 31, 12);
qryUpDate.ParamByName('p_F_VAL_DEB_CONTA_CLIENTE').AsString := Copy(mmLista.Lines[ind], 63, 5);
//qryUpDate.ParamByName('p_I_COD_B_CONTA_CORRENTE_DEBIT_C').AsInteger := dbBancoNome.KeyValue; ( não estou conseguindo tratar esse campo)
qryUpDate.ExecSQL;

memAtualizado.Lines.Add(Copy(mmLista.Lines[ind], 2, 6));
memAtualizado.Lines.Add(Copy(mmLista.Lines[ind], 27, 4));
memAtualizado.Lines.Add(Copy(mmLista.Lines[ind], 31, 12));
memAtualizado.Lines.Add(Copy(mmLista.Lines[ind], 63, 5));
showmessage(dbBancoNome.text);
memAtualizado.Lines.Add('');

end;
end;

Se puderem dar uma ajuda... fico agradecido