TSection=ClassTObject
SectinNumber:String;
SetionTitle:String;
end;
var Section:TSection
begin
     Section := TSection.create;
     Section.SectinNumber := '第一节';
     Section.SectionTitle := '呵呵1';
     ListBox.Add('      第一节   呵呵1',Section);
     ...依次类推end;取得方法: 
var Section:TSectionSection := TSection.create;
Section := TSection(ListBox.Items.Objects[0]);
然后“第一节”与“呵呵1”就分别是放在Section的两个属性中了,
 ...依次类推这种是专业做法
  TSection=ClassTObject
   SectinNumber:String;
   SetionTitle:String;
要在什么时候定义呀?急!
谁先帮解决了
我起码给80分!!!