obj:=ListBox1.Items.Objects[ListBox1.ItemIndex] as TFileItemData;
obj:=ListBox1.Items.Objects[1] as TFileItemData;