[Igorevsky]

отлично, работает!!!!
но вопрос, при удалении строки этот объект удалится корректно?

Код:

    WorkListBox.Items.InsertObject(0, 'sdfghj', Ob1.Create);
    (WorkListBox.Items.Objects[0] as Ob1).Param1:= 1;
    (WorkListBox.Items.Objects[0] as Ob1).Param2:= 2;

    WorkListBox.Items.InsertObject(1, 'sdfghj', Ob1.Create);
    (WorkListBox.Items.Objects[1] as Ob1).Param1:= 3;
    (WorkListBox.Items.Objects[1] as Ob1).Param2:= 4;

    WorkListBox.Items.InsertObject(2, 'sdfghj', Ob1.Create);
    (WorkListBox.Items.Objects[2] as Ob1).Param1:= 5;
    (WorkListBox.Items.Objects[2] as Ob1).Param2:= 6;

    WorkListBox.Items.Delete(1);

    reportlistbox.Items.Add(IntToStr((WorkListBox.Items.Objects[0] as Ob1).Param1));
    reportlistbox.Items.Add(IntToStr((WorkListBox.Items.Objects[0] as Ob1).Param2));
    reportlistbox.Items.Add(IntToStr((WorkListBox.Items.Objects[1] as Ob1).Param1));
    reportlistbox.Items.Add(IntToStr((WorkListBox.Items.Objects[1] as Ob1).Param2));