Hvordan laver man dette under "type"???

Som titelen siger vil jeg gerne vide hvordan koden some skal være under "type" i mit delphi program skal se ud.

Det skal være så alle disse funktioner er der (der må gerne væres på måden, så længe præncipet er det samme).

Her er min kode:

var
  fc:TFeedCollection;
  f,i:Integer;
begin
  fc := TFeedCollection.Create;

  with fc.Feeds.Add do
  begin
    Title := 'Something';
    Url := 'Something';
    with Items.Add do
    begin
      Title := 'Something else';
      Url := 'Something else';
      Content := 'Something else';
    end;
  end;

  for f:=0 to fc.Feeds.Count-1 do
  begin
    ShowMessage(fc.Feeds[f].Title);
    ShowMessage(fc.Feeds[f].Url);
    for i:=0 to fc.Feeds[f].Items.Count-1 do
    begin
      ShowMessage(fc.Feeds[f].Items[i].Title);
      ShowMessage(fc.Feeds[f].Items[i].Url);
      ShowMessage(fc.Feeds[f].Items[i].Content);
    end;
  end;

  fc.Feeds.Delete(1);
  fc.Feeds[0].Items.Delete(1);

  fc.Free;
end;

Som nogle måske ved har jeg fået lidt hjælp:
http://udvikleren.dk/Thread.aspx?f=2&t=17646&p=last
men koden må (skal helst) ændre kraftigt.

Håber der en der kan hjælpe mig