Fórum Preciso de ajuda - LookUpListBox #215896

Bom galera, o lance é o seguinte:

Tenho um database(que faz a conexao ao oracle), duas lookuplistbox e os botões para transferir dados entre elas (akela clássica interface, com os botões de transferir um dado, transferir todos os dados, remover um dado, remover todos os dados de uma listbox para a outra).

A implementação do botao que faz a transferencia de um dado de uma list box para outra é a seguinte:

procedure TfrmCadastroAcesso.sbtIncluiUmClick(Sender: TObject);
begin
Try
With qry_inclui_funcao do
begin
// dtbProj.StartTransaction;
parambyname(´CODCARGO´).Asstring:= lcbDescCargo.KeyValue;
ParamByName(´CODFUNCAO´).AsString:= lbAcessosBloq.KeyValue;
ExecSQL;
// dtbProj.Commit;
// Messagedlg(´FUNÇÃO liberada com sucesso!´,mtinformation,[mbok],0);
end;

except
on Exception do
begin
dtbProj.Rollback;
Messagedlg(´ERRO NA LIBERAÇÃO DA FUNÇÃO´, mterror, [mbok],0);
exit;
end;

end;

qry_funcoes_bloq.Close;
qry_funcoes_bloq.Open;
qry_funcoes_ok.Close;
qry_funcoes_ok.Open;


end;


Essa query qry_inclui_funcao possui esse SQL : INSERT INTO TB_ACESSO VALUES (:CODCARGO,:CODPRO).

Agora, como devo fazer a implementação do botao de TRANSFERIR TODOS OS DADOS de uma lookuplistbox para a outra? Tem como eu usar esta mesma query ??