Se borran los elementos de la coleccion

[jorllazo]

Hola Amigos.
Tengo este codigo :

Código Delphi [-]
procedure TfrmContacts.btnSaveAddressClick(Sender: TObject);
var
  oAdd: TAddress;
  ind : integer;
begin
  ind := lstAddresses.ItemIndex ;
  if oPerson.Addresses.Count > 0 then
  begin
    oAdd := oPerson.Addresses.Item[ind];
    with oAdd do
    begin
        street:= edtStreet.Text;
        postalCode := edtPostalCode.Text;
        city := cboCity.Text;
        province := cboProvince.Text;
        country := cboCountry.Text;
        save;
    end;
    oAdd.Free;
  end;
end;

en donde oPerson.Addresses es una clase que deriva de TCollection y TAddress deriva de TCollectionItem, el caso es que la lista se carga de la BD
salen 2 Items y todo lo demas ,hsta ahi perfecto, pero cuando realiza la Accion

Código Delphi [-]
            oAdd.free

me borra el objeto de la Coleccion, es esto normal? No estoy muy acostumbrado a trabajar asi. liberando memoria y demas.,.

el caso es que cada vez que pasa por ahi el codigo, me elimina un elemento de la lista.