[Pyro]

так чтоли?

PHP код:

type
  Tmyone = class
    //всё что нужно
  end;
  Tmymany = TList<Tmyone>;
var
  some: Tmymany;
begin
  some := Tmymany.Create;
  some.add(Tmyone.create({...}));
  some.items[0].dojob 


у меня этой версии делфи нет есличо (а эти уголки - generics)