Pomoc s Delphi - dynamicke pole objektov

pls help

tak mam mensi problem nad ktorym sa trapim uz nejaku tu hodinku :lol:

mam deklarovane dynamicke pole, aa pri vkladani noveho prvka do pola mi ho tam vlozi ale aj prepise vsetky prvky predchadzajuce na ten posledny vlozeny..

takto to mam napisane:

private

aDatabaza : array of TFilm; //TFilm je trieda

constructor TDatabaza.create;

begin

aDatabaza := Nil;

inherited;

end;

destructor TDatabaza.destroy;

begin

aDatabaza := nil;

inherited;

end;

procedure TDatabaza.Vloz(const paFilm: TFilm);

begin

SetLength(aDatabaza, Length(aDatabaza)+1);

aDatabaza[High(aDatabaza)] := paFilm;

end;

function TDatabaza.VratPrvok(cislo : integer) : TFilm;

begin

Result := aDatabaza[cislo];

end;