Dados Listbox

Ola pessoal,

Bem estou adicionando dados de uma tabela em um listbox1, onde aparece somente o campo nome_restricao.
Eu arrasto um item do ListBox1 para outro listbox2 e gostaria de incluir na tabela somente o campo do Id_restricao .

Campos Tabela

ID_Retricao
NM_Restricao

Eu nao sei como pegar o item ID_restricao para pode incluir na tabela.

Codigo

Listbox1.Clear;
With SQLDataset1 do
begin
commandtext :=
´Select a.ID_Restricao,a.NM_Restricao from RESTRICAO A ´+
´ where not exists (select b.id_restricao from restricao_pai b´+
´ where a.id_restricao = b.id_restricao and b.id_restricao_pai= :vcodigo)´;
params[0].asstring := vcodigo;
Open;
while not EOF do
begin
listbox1.Items.Add(FieldValues[´NM_Restricao´]);
Next;
end;
Close;
end;

Agora quando arrastar para o outro listbox2 gravar somente o id_restricao. A parte de arrastar e soltar esta OK.

obrigado

ate+