Fórum listbox com ponteiro no object #268031

tenho um array de 40 listbox....para cada listbox carrego dados
de uma tabela, agora quero excluir um item do listbox
mas quero tb exclui-lo da tabela...!
tem como vincular o item do listbox com o registro que está lá...


nao da para excluir o item da tabela usando o conteudo que esta
no listbox....terei que vincular o codigo do registro ao item do listbox
tem como fazer isto?
trocando em miudos, vincular um codigo de registro ao item do listbox....sem
estar mostrando este codigo de registro...mostrando outra coisa


entao pensei em fazer o seguinte tipo

for l:=0 to 5 do
begin
for c:=0 to 6 do
begin
listObject:=New(PDados);

listObject^.codigo:=DM_Calendario.Q_Search.fieldbyname(´ID´).AsInteger;
listObject^.cor:=DM_Calendario.Q_Prioridade.FieldByName(´PRICOR´).AsInteger;

meulixtbox[c][l].Items.AddObject(´tt´,TObject(listObject^.codigo));
end;
end;


assim passo para cada item do listbox um ponteiro que tem o codigo daquele registro e a cor(qe nao interessa aqui).

o problema é como faço para pegar o codigo que esta vinculado
por exemplo tenho o

listbox[2][2] e quero pegar o codigo do segundo item que esta nele

listbox[2][2].items[2].???? teria que pegar o ^.codigo para eu poder excluir quando quiser