[AlexSku]

В TString командой AddObject можно добавлять любой класс (TObject и потомки). Например, так:

Код:

var N: Integer = 0;
type
  Ob1 = class
    Param1, Param2: Integer;
  end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Inc(N);
  ListBox1.Items.AddObject(IntToStr(N), Ob1.Create);
  (ListBox1.Items.Objects[0] as Ob1).Param1:= 1;
end;