Dúvida ListBox

Estou aprendendo ainda a trabalhar com o ListBox

E preciso saber o seguinte.

Tenho dois ListBox em meu Form, um Lborigem e outro lbdestino

o lborigem contém todos os itens da tabela de produtos

onde, quando clico num determinado botao o item vai para o lbdestino

Quero usar o Lbdestino como filtro da consulta.

POr exemplo:
digamos que o usuario selecionou dois produtos.

entao o sistema teria que calcular o custo dos produtos selecionados

só nao sei como setar o item do listbox

seria mais ou menos assim
tb_custo.first;
while not tb_custo.eof do
begin
if tb_custo.fieldbyname(´cutos_prod´).asstring = lbdestino then
begin
Calcular;
tb_custo.next;
end
else
begin
tb_custo.next;
end;
end;
Como ir para o proximo item do listbox e como saber que estou no ultimo item

Obrigado