como saber o campo de um DBListBox selecionado para fazer isso?

[Greed]

boa tarde galera!

Seguinte, estou desenvolvendo um sistema de venda e preciso de uma ajudinha aqui.

O meu DBListBox recebe todos os itens orçados e o campo Preço Total recebe o valor de todos os itens do DBListBox. Até ai tudo bem.

O problema vem quando eu peço para retirar um item, ele não subtrai corretamente!

Código utilizado para inserir o item no DBListBox

DBListBox1.Items.Add(DBLookupListBox1.SelectedItem + ' - R$'+DM.EstoqueVALOR_VENDA.AsString);
  c:= c+ DM.EstoqueVALOR_VENDA.AsInteger;
  DM.Estoque.Edit;
  DM.EstoqueQUANTIDADE.AsInteger:= DM.EstoqueQUANTIDADE.AsInteger - 1;
  DBEdit6.Text:= IntToStr(c);
  Edit2.Text:= DBEdit6.Text;

Estava pensando em pegar o item selecionado e fazer um filtro na tabela pelo código dele que é unico e subtrair o valor do campo VALOR_VENDA do Edit que está recebendo os valores!

Mas o meu problema é que eu não sei como eu faço para identificar qual é o item selecionado no DBListBox

Qual o código eu utilizo?

Grato pela atenção

[Greed]

tive uma ideia!

Eu coloquei dos DBListBox no form, um só para receber o valor de venda e o outro o nome do produto - R$ valor de venda (Exemplo: Arroz - R$ 15,00)

Para deletar um item eu consegui deletar os dois, tanto o que contém só o valor total, quanto o outro, mas para subtrair eu não consegui!

Como faço para saber o texto do item selecionado de um DBListbox??

[Jhonas]

Como faço para saber o texto do item selecionado de um DBListbox??

Este codigo pega o item selecionado

procedure TForm1.Button2Click(Sender: TObject);
begin
   Label1.Caption := DBListBox1.Items.Strings[DBListBox1.itemindex];
end;

abraço