Código Delphi
[-]procedure TlistAt.List_art2ItemClick(const Sender: TCustomListBox;
const Item: TListBoxItem);
var
litems: TlistboxItem;
begin
Articulos_Terminados.Edit_codArt.Text:= Item.ItemData.Detail;
listAt.Close;
end;
es tan sencillo como eso
en el eveno on cli¡k item