Hjælp

Kode 

tsubitem = class(TCollectionItem)
  private
   furl, ftitle: string;
  published
   property url: string read furl write furl;
   property title: string read ftitle write ftitle;
  end;

  tsubscripts = class(TCollection)
   function getitem(index: integer): tsubitem;
   constructor create;
  public
   function add: tsubitem; overload;
   procedure add(title, url: string); overload;
   property items[index: integer]: tsubitem read getitem;
  end;

function tsubscripts.getitem(index: integer): tsubitem;
begin
   result := inherited getitem(index) as tsubitem;
end;

function tsubscripts.add: tsubitem;
begin
   result := inherited add as tsubitem;
end;

procedure tsubscripts.add(title, url: string);
var a: tsubitem;
begin
   a := add;
   a.title := title;
   a.url := url;
end;

constructor tsubscripts.create;
begin
   inherited create(tsubitem);
end;