[ART]

эм... Или уточняйте что значит в вашем понимании объект или вот:

Код:

 type
   TSex = record
    TGirls = array of TGirl;
    time: real;
    condom: boolean;
   end;