def new cl

type
  TOsoba = class(TObject)
  private
    Fid: integer;
    Fimie: string;
    Fnazwisko: string;
    FidStopnia: integer;

  public
    ListaZadanZaMiesiac:TZadanieList;
    constructor Create(Aid: integer; Aimie: string; Anazwisko: string;
      AidStopnia: integer); overload;
    constructor Create(); overload;
    destructor Destroy; override;
    property id: integer read Fid write Fid;
    property Imie: string read Fimie write Fimie;
    property Nazwisko: string read Fnazwisko write Fnazwisko;
    property idStopnia: integer read FidStopnia write FidStopnia;
  end;

type
  TOsobaList = class(TObjectList)
  private
    function GetItem(AIndex: integer): TOsoba;
    procedure SetItem(AIndex: integer; const Value: TOsoba);
  public
    constructor Create(AWlascicielObiektow: Boolean);
    destructor Destroy; override;
    property Items[AIndex: integer]: TOsoba read GetItem write SetItem; default;
    function Add(AOsoba: TOsoba): integer;
    function FindItem(NazwiskoImie: string): integer;
  end;