{_______________________________________________________________________________
 TTesteCtrlVendavelComposto.VerificarSeItensExistemNoVendavel
 _______________________________________________________________________________}
procedure TTesteCtrlVendavelComposto.VerificarSeItensExistemNoVendavel(vendavel: IVendavel; lista: TList<Integer>);
var
  existentes: TList<Integer>;
  item: IVendavel;
begin
  existentes := TList<Integer>.Create();
  try
    for item in vendavel do
      existentes.Add(item.ID);

    VerificarSeSaoIguais(existentes, lista);
  finally
    FreeAndNil(existentes);
  end;
end;